A098684 Numbers n such that pi(n) = P(d_1!!)*P(d_2!!)*...*P(d_k!!) where d_1 d_2 ... d_k is the decimal expansion of n and P(i) is i-th prime.
10, 30, 123, 41402, 1400523, 3173000, 3173001, 3173010, 3173011, 351226103, 351226113, 351226130, 351226131
Offset: 1
Examples
3173011 is in the sequence because pi(3173011)=P(3!!)*P(1!!)*P(7!!)*P(0!!)*P(1!!)*P(1!!).
Programs
-
Mathematica
Do[d=IntegerDigits[n];k=Length[d];If[PrimePi[n]== Product[Prime[d[[j]]!! ], {j, k}], Print[n]], {n, 35000000}]
Extensions
More terms from Farideh Firoozbakht, Jun 01 2009
Comments