|
Search: id:A107122
|
|
|
| A107122 |
|
Numbers n such that n=prime(prime(prime(d_1*d_2*...*d_k))) where d_1 d_2 ... d_k is the decimal expansion of n. |
|
+0
2
|
| |
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
There is no further term up to 111*10^9.
|
|
EXAMPLE
|
12393851 is in the sequence because 12393851=prime(prime(prime((1*2*3*9*3*8*5*1))).
|
|
MATHEMATICA
|
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}]
|
|
CROSSREFS
|
Cf. A097223, A107120, A107121.
Sequence in context: A086122 A033176 A117579 this_sequence A059113 A057839 A123524
Adjacent sequences: A107119 A107120 A107121 this_sequence A107123 A107124 A107125
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Farideh Firoozbakht (mymontain(AT)yahoo.com), May 13 2005, May 27 2008
|
|
|
Search completed in 0.002 seconds
|
