%I #7 Dec 05 2013 19:56:35
%S 2,2,3,5,5,7,7,19,19,29,29,29,29,29,29,29,29,29,37,37,37,47,47,47,47,
%T 47,47,47,59,59,59,59,59,59,59,59,59,59,59,59,59,59,59,59,59,79,79,79,
%U 79,79,79,79,79,79,79,79,79,79,79,79,79,79,79,89,89,89,89,89,89,89,89,89
%N Smallest prime whose digital product is >= n.
%C If a(n+1) >a(n) = a(n-1) then the digital product of a(n) = n.
%t With[{t={#,Times@@IntegerDigits[#]}&/@Prime[Range[30]]},Transpose[ Flatten[Table[Select[t,Last[#]>=n&,1],{n,80}],1]][[1]]] (* _Harvey P. Dale_, Oct 12 2011 *)
%K base,easy,nonn
%O 0,1
%A _Amarnath Murthy_, Nov 07 2003
%E More terms from _David Wasserman_, Sep 15 2005
|