OFFSET
1,2
COMMENTS
Replacing the second term (4) with the first two primes (2, 3) we have 1, 2, 3, 10, 16, 22, ... the records in A070165.
LINKS
EXAMPLE
The first three rows of A235795 are [1, 4, 2, 1]; [2, 1]; [3, 10, 5, 16, 8, 4, 2, 1]. The records are [1, 4, 10, 16], the same as a(1)..a(4).
PROG
(PARI) f(n) = if (n%2, 3*n+1, n/2); \\ A014682
row(n) = {my(list=List()); listput(list, n); until(n==1, n = f(n); listput(list, n)); Vec(list); } \\ A235795
lista(nn) = {my(m=0, list = List()); for (n=1, nn, my(v = row(n)); for (k=1, #v, if (v[k]>m, m=v[k]; listput(list, m); ); )); Vec(list); } \\ Michel Marcus, Sep 10 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Sep 09 2021
EXTENSIONS
More terms from Michel Marcus, Sep 10 2021
STATUS
approved