OFFSET
1,1
COMMENTS
Apparently there are no four subsequent numbers m with f(m) prime.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Reap[Do[If[PrimeQ[72*n^2+7]&&PrimeQ[72*(n+1)^2+7]&&PrimeQ[72*(n+2)^2+7], Sow[n]], {n, 0, 300000}]][[2, 1]]
Flatten[Position[Partition[Table[PrimeQ[72n^2+7], {n, 35000}], 3, 1], {True, True, True}]] (* Harvey P. Dale, Aug 17 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 11 2006
STATUS
approved