%I #8 Sep 24 2013 09:21:36
%S 1,47,318,10546,10552,10629,86544,56196114,56200915,56676030,
%T 4555804158,4559732893,77220966866
%N Indices of primes with digit product = 2.
%C Next term is A000720(111111111111112111) > A000720(10^17) > 2*10^15.
%F a(n) = A000720(A107612(n)). - _David Wasserman_, May 07 2008
%t Do[If[Apply[Times, IntegerDigits[Prime[n]]]==2, Print[n]], {n, 100000}]
%Y Corresponding primes in A107612.
%Y Cf. A053666, A101987, A107612.
%K more,nonn,base
%O 1,2
%A _Zak Seidov_, May 17 2005
%E More terms from _Ryan Propper_, Jan 03 2008
|