|
|
|
|
1, 2, 1, 3, 2, 4, 1, 3, 2, 5, 4, 6, 1, 3, 2, 7, 5, 8, 4, 6, 1, 9, 3, 2, 7, 5, 8, 10, 4, 11, 6, 1, 9, 3, 2, 12, 7, 5, 8, 13, 10, 14, 4, 11, 6, 15, 1, 9, 3, 2, 12, 16, 7, 5, 8, 13, 10, 17, 14, 18, 4, 11, 6, 15, 1, 19, 9, 3, 2, 20, 12, 21, 16, 7, 5, 8, 13, 22, 10
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Regarding this sequence as an irregular triangle T(m,j) where the rows m terminate with 1 exhibits row length A338237(m). In such rows m, we have a permutation of the range of natural numbers 1..A338237(m).
Records are the natural numbers.
|
|
LINKS
|
|
|
EXAMPLE
|
Table showing a(n) for the first rows m of this sequence seen as an irregular triangle T(m,j). "New" numbers introduced for prime (n+1) are shown in parentheses:
m\j 1 2 3 4 5 6 7 8 9 10 11 A338237(m)
------------------------------------------------------------
1: (1) 1
2: (2) 1 2
3: (3) 2 (4) 1 4
4: 3 2 (5) 4 (6) 1 6
5: 3 2 (7) 5 (8) 4 6 1 8
6: (9) 3 2 7 5 8 (10) 4 (11) 6 1 11
... (End)
|
|
MATHEMATICA
|
c = 0; 1 + Reap[Do[Set[a[i], If[PrimeQ[i], i; c++, a[i - c]] ]; Sow[a[i]], {i, 2, 2^24}] ][[-1, -1]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|