OFFSET
0,1
COMMENTS
A sequence determined by the quadratic reciprocity power of twin primes:A001359.
MATHEMATICA
f[n_] = If[Prime[n + 1] - Prime[n] - 2 == 0, Prime[n], {}] a = Flatten[Table[(f[n]^2 - 1)/4, {n, 1, 200}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 01 2006
STATUS
approved