OFFSET
1,4
COMMENTS
Conjecture: No term is zero.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 1 since A001359(3) = 11, 11 & 13 are twin primes, (11 - 1^2)^2 + 1 = 101, and 101 & 103 are also twin primes.
MATHEMATICA
f[p_] := Module[{b = 1}, While[(pb = (p - b^2)^2 + b) <= p || ! And @@ PrimeQ[pb + {0, 2}], b++]; b]; seq = {}; Do[If[And @@ PrimeQ[p + {0, 2}], AppendTo[seq, f[p]]], {p, 2, 3000}]; seq (* Amiram Eldar, Dec 30 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray G. Opao, Nov 09 2004
EXTENSIONS
More terms from Amiram Eldar, Dec 30 2019
STATUS
approved