1078711domain: NPropertiesPrimalityPrimeyesAppears in sequencesp[n_, k_]=Product[(E/(2-E))^i, {i, 1, n}]/Product[(E/(2-E))^i, {i, Floor[n/2^k], n}], a(n) = Sum[Floor[p[n, k]/(8*p[n-1, k])], {k, 1, 8}].at n=24A088663G.f.: Product_{i>=1, j>=1, k>=1} (1 + x^(i*j*k)).at n=29A280473Prime numbersat n=84167