A102637 Interleaved reading of A000578(n), A011379(n) and A027444(n).

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

Author

Giovanni Teofilatto, Feb 01 2005

Keywords

• nonn

Programs

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

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

Extensions

Edited by R. J. Mathar, Feb 04 2008