|
Search: id:A100352
|
|
|
| A100352 |
|
Integers out of lexicographic order in A097104 in order of their presentation. |
|
+0
3
|
|
| 1, 6, 9, 12, 15, 18, 21, 24, 28, 31, 34, 17, 41, 11, 47, 50, 23, 57, 60, 63, 67, 70, 73, 76, 32, 83, 86, 36, 93, 97, 100, 103, 106, 109, 112, 115, 119, 123, 127, 130, 133, 137, 52, 143, 147, 150, 153, 157, 160, 59, 167, 170, 26, 177, 180, 183, 187, 191, 68, 197, 5, 203
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
MATHEMATICA
|
lst = Table[n, {n, 1000}]; f[m_] := (lst = Drop[ Insert[ lst, lst[[m]], Prime[m] + 1], {m, m}]); Do[ f[n], {n, 168}]; a = 0; b = {}; Do[c = lst[[n]]; If[c < a, AppendTo[b, c], a = c], {n, 500}]; Take[b, 61]
|
|
CROSSREFS
|
Cf. A097104, A100353.
Sequence in context: A153043 A099862 A014407 this_sequence A130699 A023040 A001474
Adjacent sequences: A100349 A100350 A100351 this_sequence A100353 A100354 A100355
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 18 2004
|
|
|
Search completed in 0.002 seconds
|
