OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
Prime 389 is in sequence because 3*8*9=216, 2*1*6 =12, 1*2=2.
MAPLE
mdr:= proc(n) option remember;
local t;
t:= convert(convert(n, base, 10), `*`);
if t < 10 then t else procname(t) fi
end proc:
select(t -> mdr(t) = 2 and isprime(t), [2, seq(i, i=3..10000, 2)]); # Robert Israel, Nov 05 2020
MATHEMATICA
t = {}; n = 0; While[Length[t] < 100, n = NextPrime[n]; s = n; While[s >= 10, s = Times @@ IntegerDigits[s]]; If[s == 2, AppendTo[t, n]]]; t (* T. D. Noe, Nov 15 2011 *)
Select[Prime[Range[600]], FixedPoint[Times@@IntegerDigits[#]&, #]==2&] (* Harvey P. Dale, Mar 28 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Nov 13 2011
STATUS
approved