cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A102637 #6 Aug 08 2015 21:24:19
%S A102637 1,8,27,12,3,64,36,14,125,80,39,216,150,84,343,252,155,512,392,258,
%T A102637 729,576,399,1000,810,584,1331,1100,819,1728,1452,1110,2197,1872,1463,
%U A102637 2744,2366,1884,3375,2940,2379,4096,3600,2954,4913,4352,3615,5832,5202,4368
%N A102637 Interleaved reading of A000578(n), A011379(n) and A027444(n).
%F A102637 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
%p A102637 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
%K A102637 nonn
%O A102637 1,2
%A A102637 _Giovanni Teofilatto_, Feb 01 2005
%E A102637 Edited by _R. J. Mathar_, Feb 04 2008