This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A098684 #21 Mar 06 2019 14:30:50 %S A098684 10,30,123,41402,1400523,3173000,3173001,3173010,3173011,351226103, %T A098684 351226113,351226130,351226131 %N 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. %C A098684 There are no further terms up to 35000000. %C A098684 From _Farideh Firoozbakht_, Jun 01 2009: (Start) %C A098684 If 10*n is in the sequence and 10*n+1 is composite then 10*n+1 is also in the sequence. %C A098684 There is no further term up to 1.5*10^10. (End) %C A098684 There are no other terms less than 10^15. - _Chai Wah Wu_, Mar 06 2019 %e A098684 3173011 is in the sequence because pi(3173011)=P(3!!)*P(1!!)*P(7!!)*P(0!!)*P(1!!)*P(1!!). %t A098684 Do[d=IntegerDigits[n];k=Length[d];If[PrimePi[n]== Product[Prime[d[[j]]!! ], {j, k}], Print[n]], {n, 35000000}] %Y A098684 Cf. A000040, A098683, A098685, A098686. %K A098684 base,more,nonn %O A098684 1,1 %A A098684 _Farideh Firoozbakht_, Sep 24 2004 %E A098684 More terms from _Farideh Firoozbakht_, Jun 01 2009