|
| |
|
|
A135405
|
|
Sequence where the sum of each pair of consecutive elements is a square. This covers squares of all consecutively increasing integers with the exception of 2.
|
|
0
| |
|
|
0, 1, 8, 8, 17, 19, 30, 34, 47, 53, 68, 76, 93, 103, 122, 134, 155, 169, 192, 208, 233, 251, 278, 298, 327, 349, 380, 404, 437, 463, 498, 526, 563, 593, 632, 664, 705, 739, 782, 818, 863, 901, 948, 988, 1037, 1079, 1130, 1174, 1227, 1273, 1328, 1376, 1433, 1483
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| a(n)=(n+2)*(n+1)/2+2*(-1)^n
|
|
|
FORMULA
| O.g.f.: -x*(1+6*x-8*x^2+3*x^3)/((-1+x)^3*(1+x)) = -3-1/(-1+x)^3+2/(1+x). a(n)= A000217(n+1)+2*(-1)^n if n>0. - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Dec 12 2007
|
|
|
EXAMPLE
| a(1)=1 because 0 + 1 = 1^2
a(2)=8 because 1 + 8 = 9 = 3^2
a(3)=8 because 8 + 8 =16 = 4^2
|
|
|
MATHEMATICA
| a=1; lst={0, a}; Do[a=n^2-a; AppendTo[lst, a], {n, 3, 5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 17 2008]
|
|
|
CROSSREFS
| Sequence in context: A171188 A145909 A168409 * A006784 A168456 A061156
Adjacent sequences: A135402 A135403 A135404 * A135406 A135407 A135408
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Alexander R. Povolotsky (pevnev(AT)juno.com), Dec 11 2007, Apr 02 2008
|
|
|
EXTENSIONS
| More terms and Mathematica program Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 17 2008
|
| |
|
|
