|
Search: id:A113571
|
|
|
| A113571 |
|
Last appearance of n or zero if no such appearance exists. |
|
+0
1
|
|
| 1, 2, 6, 4, 10, 7, 14, 8, 9, 61, 22, 13, 26, 1049, 41233, 16, 34, 19, 38
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Conjectured last occurrence of n: 1,3,11,25,137,49,363,761,7129,7381,83711,6617,72072,1117,
|
|
MATHEMATICA
|
f[n_] := f[n] = Block[{h = k = 1}, While[ !IntegerQ[ Numerator[h]/n] && ! IntegerQ[Denominator[h]/n], k++; h = h + 1/k]; k]; Do[ f[n], {n, 84000}]; Table[ Select[ Range[84000], f[ # ] == n &][[1]], {n, 60}]
|
|
CROSSREFS
|
Cf. A110545.
Sequence in context: A074208 A066043 A066678 this_sequence A119018 A094748 A065879
Adjacent sequences: A113568 A113569 A113570 this_sequence A113572 A113573 A113574
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 29 2005
|
|
EXTENSIONS
|
Sequence continues: a(20)=?, a(21)=?, 23, 46, 138, 50, a(26)=?, 27, 841, 58, 31, 62, 32, 269, 3583, 397, 1297, 74, 199, a(39)=?, 41, 82, 301, 86, 407, 1553, 47, 94, a(48)=?, 98, a(50)=?, 76943, 809, 106, 5953, a(55)=?, a(56)=?, 26693, 59, 118, 2207, ...,.
|
|
|
Search completed in 0.002 seconds
|
