OFFSET
1,1
COMMENTS
Can this sequence be proved to be infinite? [Charles R Greathouse IV, Nov 13 2011]
EXAMPLE
Prime 139 is in sequence because 1*3*9=27, 2*7=14, 1*4=4.
MATHEMATICA
t = {}; n = 0; While[Length[t] < 100, n = NextPrime[n]; s = n; While[s >= 10, s = Times @@ IntegerDigits[s]]; If[s == 4, AppendTo[t, n]]]; t (* T. D. Noe, Nov 16 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Nov 13 2011
STATUS
approved