|
%I #4 Mar 30 2012 17:37:43
%S 0,4,290,11387,1656281
%N Numbers n such that n=pi(d_1!!*d_2!!*...*d_k!!) where d_1 d_2 ... d_k is the decimal expansion of n.
%C There is no further term up to 73*10^6. - _Farideh Firoozbakht_, Dec 02 2007
%e 11387 is in the sequence because 11387=pi(1!!*1!!*3!!*8!!*7!!).
%t Do[h = IntegerDigits[n]; l = Length[h]; If[n == PrimePi[ Product[h[[k]]!!, {k, l}]], Print[n]], {n, 0, 50000}]
%Y Cf. A097655, A110070, A110072.
%K base,hard,more,nonn
%O 1,2
%A _Farideh Firoozbakht_, Jul 22 2005
%E 1656281 added by _Farideh Firoozbakht_, Dec 02 2007
|
