OFFSET
1,1
COMMENTS
No further terms up to 2000 digits. - Harvey P. Dale, Mar 06 2012
LINKS
MATHEMATICA
Select[Table[FromDigits[PadRight[{7}, n, 1]], {n, 2000}], PrimeQ] (* Harvey P. Dale, Mar 06 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Apr 06 2004
STATUS
approved