OFFSET
1,2
MATHEMATICA
okQ[n_]:=Module[{x=FromDigits[PadRight[{}, n, 1]]}, PrimeQ[x^3+x^2+1]]; Select[Range[5000], okQ] (* Harvey P. Dale, Nov 04 2011 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Jason Earls, Oct 06 2010
EXTENSIONS
a(9) from Michael S. Branicky, Mar 22 2024
STATUS
approved