OFFSET
1,2
COMMENTS
We observe that a(n)==0 (mod 10) for n>2.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
nn:=15000 :
for k from 1 to nn do :
p:=k^2+1 :
if isprime(p) and isprime(2*p+1)
then printf(`%d, `, k):
fi:
od:
MATHEMATICA
okQ[k_]:=PrimeQ[k^2+1]&&PrimeQ[2(k^2+1)+1]; Select[Range[12620], okQ] (* James C. McMahon, Nov 24 2025 *)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Michel Lagneau, Nov 18 2025
STATUS
approved
