OFFSET
1,2
PROG
(PARI) f(n) = my(d=divrem(n, 3)); if (d[2], f(5*d[1]+d[2]+3), n); \\ A349876
lista(nn) = {my(r=0); for (n=1, nn, my(x = f(n)); if (x>r, print1(x, ", "); r=x); ); } \\ Michel Marcus, Dec 06 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Nicholas Drozd, Dec 04 2021
STATUS
approved