OFFSET
1,1
COMMENTS
Squares of greater of twin primes.
LINKS
Winston de Greef, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A006512(n)^2.
MAPLE
ZL:=[]:for p from 1 to 950 do if (isprime(p) and isprime(p+2)) then ZL:=[op(ZL), ((p+2)^2)]; fi; od; print(ZL); # Zerinvary Lajos, Mar 08 2007
MATHEMATICA
Select[Sqrt/@Table[Prime[k]*Prime[k+1]+2Prime[k+1], {k, 160}], IntegerQ]^2 (* James C. McMahon, Jan 27 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Jul 06 2005
EXTENSIONS
Corrected and extended by Ray Chandler, Jul 10 2005
STATUS
approved