|
Search: id:A160516
|
|
| |
|
| 1, 2, 5, 3, 6, 4, 17, 8, 10, 7, 18, 9, 23, 20, 11, 13, 24, 15, 58, 12, 16, 19, 59, 14, 33, 22, 28, 21, 62, 26, 63, 31, 29, 25, 34, 36, 66, 57, 39, 32, 67, 35, 72, 30, 27, 60, 125, 37, 49, 44, 40, 38, 126, 47, 45, 42, 71, 61, 131, 56, 134, 64, 48, 52, 80, 46, 135, 41, 76, 43
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
This is a permutation of the positive integers (provided A075075 really is a permutation).
|
|
LINKS
|
H. v. Eitzen, Table of n, a(n) for n=0..50000
|
|
FORMULA
|
A075075(a(n)) = n
|
|
EXAMPLE
|
A075075(7) = 10, therefore a(10) = 7.
A075055(17) = 7, therefore a(7) = 17.
|
|
MATHEMATICA
|
f[s_List] := Block[{m = Numerator[s[[ -1]]/s[[ -2]]]}, k = m; While[MemberQ[s, k], k += m]; Append[s, k]]; s = Nest[f, {1, 2}, 200]; Table[ Position[s, n, 1, 1], {n, 70}] // Flatten [From Robert G. Wilson v (rgwv(AT)rgwv.com), May 20 2009]
|
|
CROSSREFS
|
Sequence in context: A091807 A085825 A037852 this_sequence A024871 A111202 A163362
Adjacent sequences: A160513 A160514 A160515 this_sequence A160517 A160518 A160519
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Hagen von Eitzen (math(AT)von-eitzen.de), May 16 2009
|
|
|
Search completed in 0.004 seconds
|
