|
| |
|
|
A108570
|
|
Squares of the form prime(n)*prime(n+1) - 2*prime(n).
|
|
3
| |
|
|
9, 25, 121, 289, 841, 1681, 3481, 5041, 10201, 11449, 18769, 22201, 32041, 36481, 38809, 51529, 57121, 72361, 78961, 96721, 120409, 175561, 185761, 212521, 271441, 323761, 358801, 380689, 410881, 434281, 654481, 674041, 683929, 734449, 776161
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Squares of lesser of twin primes.
|
|
|
MAPLE
| ZL:=[]:for p from 1 to 950 do if (isprime(p) and isprime(p+2)) then ZL:=[op(ZL), (p^2)]; fi; od; print(ZL); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Mar 08 2007
|
|
|
MATHEMATICA
| Select[First[#]Last[#]-2First[#]&/@Partition[Prime[Range[500]], 2, 1], IntegerQ[ Sqrt[#]]&] (* From Harvey P. Dale, May 24 2011 *)
|
|
|
CROSSREFS
| Cf. A001359, A108604.
Sequence in context: A193644 A083100 A084058 * A092769 A139818 A146365
Adjacent sequences: A108567 A108568 A108569 * A108571 A108572 A108573
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Jul 05 2005
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Jul 10 2005
|
| |
|
|
