[go: up one dir, main page]

login
A064274
Inverse of sequence A035513 considered as a permutation of the nonnegative integers.
1
0, 1, 2, 4, 3, 7, 6, 5, 11, 10, 9, 8, 15, 16, 21, 14, 13, 28, 12, 36, 20, 22, 45, 27, 19, 55, 18, 66, 35, 17, 78, 44, 26, 91, 29, 105, 54, 34, 120, 25, 136, 65, 24, 153, 77, 43, 171, 23, 190, 90, 53, 210, 33, 231, 104, 37, 253, 119, 64, 276, 42, 300, 135, 32
OFFSET
0,3
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
Cf. A035513.
Sequence in context: A108228 A127008 A199535 * A035513 A343646 A191442
KEYWORD
easy,nonn
AUTHOR
Howard A. Landman, Sep 23 2001
EXTENSIONS
More terms from R. J. Mathar, Jun 26 2007
STATUS
approved