OFFSET
1,1
LINKS
Joel B. Lewis and T. D. Noe, Table of n, a(n) for n = 1..100
MATHEMATICA
Table[ Max[ Flatten[Table[ If[PrimeQ[10^n + 1], 10^n + 1, If[PrimeQ[10^n + 10^i + 10^j + 1], 10^n + 10^i + 10^j + 1, 0]], {i, 0, n}, {j, 0, i}]]], {n, 1, 50}] (Program works so long as there exists an n-digit prime with digit sum 4 or less).
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Apr 05 2002
EXTENSIONS
a(7)-a(12) from Tom Mueller, Apr 28 2004
a(13) and onwards added by Joel B. Lewis, Jan 07 2008
STATUS
approved