|
| |
|
|
A000463
|
|
n followed by n^2.
|
|
24
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| Index entries for sequences related to linear recurrences with constant coefficients
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
|
|
|
FORMULA
| a(n) = ((((-1)^(n+1))+1)/4)(n+1) - ((((-1)^(n+1))-1)/8)n^2 - Sam Alexander (MainNight(AT)aol.com)
G.f.: [1+x-x^2+x^3]/[(1-x)^3(1+x)^3].
a(n)=if(n mod 2, (n+1)/2, (n/2)^2) [From Gerald Hillier (adr.rabbicat(AT)gmail.com), Sep 25 2008]
a(n) = floor((n+1) / 2) ^ (2 - n mod 2). [Reinhard Zumkeller, Aug 15 2011]
|
|
|
MAPLE
| seq(seq(n^k, k=1..2), n=1..36); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Jun 29 2007
|
|
|
MATHEMATICA
| Array[{#, #^2} &, 36, 0] // Flatten
|
|
|
PROG
| (MAGMA) &cat[ [ n, n^2 ]: n in [1..36] ]; [From Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Apr 20 2009]
(Haskell)
a000463 n = a000463_list !! (n-1)
a000463_list = concatMap (\x -> [x, x^2]) [1..]
-- Reinhard Zumkeller, Apr 13 2011
|
|
|
CROSSREFS
| Cf. A188652 (first differences), A188653 (second differences), A159693 (partial sums), A000290 (squares).
Sequence in context: A155749 A198931 A063379 * A137442 A111390 A129596
Adjacent sequences: A000460 A000461 A000462 * A000464 A000465 A000466
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Dominick Cancilla [ 75720.71(AT)compuserve.com ]
|
|
|
EXTENSIONS
| More terms from Victoria Sapko (vsapko(AT)frc.mass.edu), Dec 15 2005
Square of 14 corrected by Sean A. Irvine (sairvin(AT)xtra.co.nz), Oct 25 2010
|
| |
|
|
