OFFSET
0,3
LINKS
MAPLE
Digits := 30 : A035513 := proc(n, k) local tau ; tau := (sqrt(5)+1)/2 ; combinat[fibonacci](k+1)*floor(n*tau)+(n-1)*combinat[fibonacci](k) ; end: A035513flat := proc(N) local r, c, k, np, n ; n := 1 : k := 1 : for np from 2 to N do n := n+1 : k := k-1 : if k = 0 then k := n: n := 1: fi ; od ; A035513(n, k) ; end: a035513 := [] : a := -1 : nmax := 300 : for n from 1 to nmax do a035513 := [op(a035513), A035513flat(n)] : od : printf("0, ") ; n := 1: while true do if member(n, a035513, 'a') then printf("%d, ", a) ; else break ; fi ; n := n+1 : od: # R. J. Mathar, Jun 26 2007
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Howard A. Landman, Sep 23 2001
EXTENSIONS
More terms from R. J. Mathar, Jun 26 2007
STATUS
approved