A107121 Numbers m such that m=prime(prime(d_1*d_2*...*d_k)) where d_1 d_2 ... d_k is the decimal expansion of m.
461, 264961, 9548491, 14738827
Offset: 1
Examples
14738827 is in the sequence because 14738827=prime(prime(1*4*7*3*8*8*2*7)).
Programs
-
Mathematica
Do[h= IntegerDigits[Prime[m]];l = Length[h];If[Min[h] > 0 && m == Prime[Product[h[[k]], {k, l}]], Print[Prime [m]]], {m, 20000000}]
Comments