login
A248928
Interleave (2*n+2)^2 with (2*n+3)^2, both listed n+1 times.
1
4, 9, 16, 16, 25, 25, 36, 36, 36, 49, 49, 49, 64, 64, 64, 64, 81, 81, 81, 81, 100, 100, 100, 100, 100, 121, 121, 121, 121, 121, 144, 144, 144, 144, 144, 144, 169, 169, 169, 169, 169, 169, 196, 196, 196, 196, 196, 196, 196, 225, 225, 225, 225, 225, 225, 225
OFFSET
0,1
COMMENTS
Discovered via Janet's sequence A167268: the result of adding to A167268 the smallest increasing sequence (2, 7, 10, 14, 19, 23, 26, 30, 34, 39, 43, 47, ...) as to get a sequence of nondecreasing squares.
Even terms: 4, 16, 16, 36, 36, 36, ... = 4*A093995(n+1).
Odd terms: (A131507(n) + 2)^2.
LINKS
FORMULA
a(n) = A027434(n+1)^2.
EXAMPLE
Seen as an irregular triangle:
4;
9;
16, 16;
25, 25;
36, 36, 36;
49, 49, 49;
64, 64, 64, 64;
81, 81, 81, 81;
...
MATHEMATICA
Module[{nn=10, a, b}, a=Table[PadRight[{}, n+1, (2n+2)^2], {n, 0, nn}]; b= Table[ PadRight[ {}, n+1, (2n+3)^2], {n, 0, nn}]; Riffle[a, b]]//Flatten (* Harvey P. Dale, Jun 10 2022 *)
PROG
(PARI) vector(60, n, (sqrtint(4*n-3)+1)^2) \\ after Charles R Greathouse IV, Michel Marcus, Oct 27 2014
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Paul Curtz, Oct 17 2014
STATUS
approved