1,2

C. Deugau and F. Ruskey, Complete k-ary Trees and Generalized Meta-Fibonacci Sequences

g.f.: P(z) = z / (1-z) * (1 + sum(z^(m^3) * (1 / (1 - z^(m^3))), m=0..infinity))

p := proc(n)

if n=1 then return 1; end if;

for j from p(n-1)+1 to infinity do

if A120503(j) = n then return j; fi; od;

end proc;

Cf. A120503, A120525.

Sequence in context: A074235 A001948 A121912 this_sequence A101886 A135674 A047332

Adjacent sequences: A120511 A120512 A120513 this_sequence A120515 A120516 A120517

nonn

Frank Ruskey (http://www.cs.uvic.ca/~ruskey/) and Chris Deugau (deugaucj(AT)uvic.ca), Jun 20 2006