OFFSET
1,3
MATHEMATICA
Select[IntegerQ][Table[Sqrt[2*Prime[n]^2 - 2*Prime[n-1]^2]/12, {n, 37000}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jeff Brown, Jul 06 2020
STATUS
approved