login
A102637
Interleaved reading of A000578(n), A011379(n) and A027444(n).
1
1, 8, 27, 12, 3, 64, 36, 14, 125, 80, 39, 216, 150, 84, 343, 252, 155, 512, 392, 258, 729, 576, 399, 1000, 810, 584, 1331, 1100, 819, 1728, 1452, 1110, 2197, 1872, 1463, 2744, 2366, 1884, 3375, 2940, 2379, 4096, 3600, 2954, 4913, 4352, 3615, 5832, 5202, 4368
OFFSET
1,2
FORMULA
a(3n) = A000578(n+2), a(3n+1)=A011379(n+1), a(3n+2)=A027444(n) for n>=1. - R. J. Mathar, Feb 04 2008
MAPLE
A027444 := proc(n) n^3+n^2+n ; end: A011379 := proc(n) n^3+n^2 ; end: A000578 := proc(n) n^3 ; end: A102637 := proc(n) if n <= 3 then A000578(n) ; else npr := floor(n/3) ; if n mod 3 = 0 then A000578(npr+2) ; elif n mod 3 = 1 then A011379(npr+1) ; else A027444(npr) ; fi ; fi ; end: seq(A102637(n), n=1..80) ; # R. J. Mathar, Feb 04 2008
CROSSREFS
Sequence in context: A356192 A367934 A053149 * A250140 A070510 A224787
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Feb 01 2005
EXTENSIONS
Edited by R. J. Mathar, Feb 04 2008
STATUS
approved