|
|
A000463
|
|
n followed by n^2.
|
|
25
|
|
|
1, 1, 2, 4, 3, 9, 4, 16, 5, 25, 6, 36, 7, 49, 8, 64, 9, 81, 10, 100, 11, 121, 12, 144, 13, 169, 14, 196, 15, 225, 16, 256, 17, 289, 18, 324, 19, 361, 20, 400, 21, 441, 22, 484, 23, 529, 24, 576, 25, 625, 26, 676, 27, 729, 28, 784, 29, 841, 30, 900, 31, 961, 32, 1024, 33, 1089, 34, 1156, 35, 1225, 36, 1296
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Eigensequence of a triangle with nonnegative integers interlaced with zeros (1, 0, 2, 0, 3, ...) as the right and left borders, with the rest zeros. - Gary W. Adamson, Aug 01 2016
|
|
LINKS
|
|
|
FORMULA
|
a(n) = ((((-1)^(n+1))+1)/4)(n+1) - ((((-1)^(n+1))-1)/8)n^2 - Sam Alexander
G.f.: (1+x-x^2+x^3)/((1-x)^3(1+x)^3).
|
|
EXAMPLE
|
G.f. = x + x^2 + 2*x^3 + 4*x^4 + 3*x^5 + 9*x^6 + 4*x^7 + 16*x^8 + ...
|
|
MAPLE
|
|
|
MATHEMATICA
|
Array[{#, #^2} &, 36, 0] // Flatten
a[ n_] := If[ OddQ @ n, (n + 1) / 2, n^2 / 4]; (* Michael Somos, May 28 2014 *)
|
|
PROG
|
(Haskell)
a000463 n = a000463_list !! (n-1)
a000463_list = concatMap (\x -> [x, x^2]) [1..]
(PARI) {a(n) = if( n%2, (n + 1) / 2, n^2 / 4)}; /* Michael Somos, May 28 2014 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|