|
Search: id:A133299
|
|
| |
|
| 1, 1, 1, 2, 1, 2, 3, 1, 4, 2, 3, 5, 1, 6, 4, 2, 7, 3, 5, 8, 1, 9, 6, 4, 10, 2, 11, 7, 3, 12, 5, 8, 13, 1, 14, 9, 6, 15, 4, 10, 16, 2, 17, 11, 7, 18, 3, 19, 12, 5, 20, 8, 13, 21, 1, 22, 14, 9, 23, 6, 15, 24, 4, 25, 10, 16, 26, 2, 27, 17, 11, 28, 7, 18, 29, 3, 30, 19, 12, 31, 5, 32, 20, 8, 33
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Signature sequence of the entries in a Stolarsky array.
|
|
LINKS
|
E. Weisstein, Stolarsky Array
|
|
FORMULA
|
A035506(a(n),k)=n for some k>=1. - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 21 2007
|
|
MAPLE
|
A035506 := proc(r, c) local tau, a, b, d, i ; tau := (1+sqrt(5))/2 ; a := floor( r*(1+tau)-tau/2) ; b := round(a*tau) ; if c = 1 then RETURN(a) ; else if c =2 then RETURN(b) ; else for i from 1 to c-2 do d := a+b ; a := b; b := d ; od: RETURN(d) ; fi ; fi ; end: A133299 := proc(n) local row, col ; for row from 1 do for col from 1 do stola := A035506(row, col) ; if stola = n then RETURN(row) ; elif stola > n then break ; fi ; od: od: end: seq(A133299(n), n=1..100) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 21 2007
|
|
CROSSREFS
|
Adjacent sequences: A133296 A133297 A133298 this_sequence A133300 A133301 A133302
Sequence in context: A139642 A021475 A132224 this_sequence A132163 A110582 A091298
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Gregg K. Whisler (gwhisler(AT)msinnovation.info), Oct 17 2007
|
|
EXTENSIONS
|
Better definition from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 22 2007
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 21 2007
|
|
|
Search completed in 0.002 seconds
|
