OFFSET
1,1
EXAMPLE
Number 278 is in sequence because 2*7*8=112, 1*1*2 =2.
MATHEMATICA
t = {}; n = 0; While[Length[t] < 100, n = n + 1; If[! PrimeQ[n], s = n; While[s >= 10, s = Times @@ IntegerDigits[s]]; If[s == 2, AppendTo[t, n]]]]; t (* T. D. Noe, Nov 16 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Nov 13 2011
STATUS
approved