|
| |
|
|
A110970
|
|
Squares of the form 2*prime(n) - prime(n+1).
|
|
1
| |
|
|
1, 9, 25, 81, 225, 361, 441, 1089, 1225, 2025, 2601, 3249, 3721, 5041, 7569, 7921, 12321, 13689, 15129, 18225, 21609, 30625, 31329, 38809, 42025, 47961, 53361, 59049, 65025, 77841, 88209, 91809, 94249, 99225, 110889, 123201, 126025, 131769
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| Union[Select[(2Prime[ # ] - Prime[ # + 1]) & /@ Range[13000], IntegerQ[Sqrt[ # ]] &]] (*Chandler*)
|
|
|
CROSSREFS
| Cf. A110975.
Sequence in context: A196353 A166103 A192618 * A141583 A147413 A066137
Adjacent sequences: A110967 A110968 A110969 * A110971 A110972 A110973
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Sep 27 2005
|
|
|
EXTENSIONS
| Corrected and extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Oct 07 2005
|
| |
|
|
