OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Nest[Append[#1, If[Divisible[Last[#1], 3], Last[#1]/3, Last[#1] + DivisorSigma[0, #2]]] & @@ {#, Length[#]} &, {1}, 77] (* Michael De Vlieger, Mar 21 2022 *)
PROG
(PARI) lista(nn) = {my(va = vector(nn)); va[1] = 1; for (n=2, nn, va[n] = if (va[n-1] % 3, va[n-1] + numdiv(n-1), va[n-1]/3); ); va; } \\ Michel Marcus, Nov 28 2020
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ctibor O. Zizka, Jan 07 2008
EXTENSIONS
Corrected and extended by Michel Marcus, Nov 28 2020
STATUS
approved