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.
Original entry on oeis.org
461, 264961, 9548491, 14738827
Offset: 1
14738827 is in the sequence because 14738827=prime(prime(1*4*7*3*8*8*2*7)).
-
Do[h= IntegerDigits[Prime[m]];l = Length[h];If[Min[h] > 0 && m == Prime[Product[h[[k]], {k, l}]], Print[Prime [m]]], {m, 20000000}]
A107122
Numbers m such that m=prime(prime(prime(d_1*d_2*...*d_k))) where d_1 d_2 ... d_k is the decimal expansion of m.
Original entry on oeis.org
31, 161159, 2935241, 12393851, 25792148743, 8378273888129
Offset: 1
12393851 is in the sequence because 12393851 = prime(prime(prime(1*2*3*9*3*8*5*1))).
-
Do[h= IntegerDigits[Prime[m]];l = Length[h];If[Min[h] > 0 && m == Prime[Prime[Prime[Product[h[[k]], {k, l}]]], Print[Prime[m]]]], {m, 10000000}]
Showing 1-2 of 2 results.
Comments