A010063 a(n+1) = a(n) + sum of digits in base 3 representation of a(n), with a(0) = 1.
1, 2, 4, 6, 8, 12, 14, 18, 20, 24, 28, 30, 32, 36, 38, 42, 46, 50, 56, 60, 64, 68, 74, 80, 88, 92, 96, 100, 104, 110, 114, 118, 122, 128, 134, 142, 148, 154, 160, 168, 172, 176, 182, 188, 196, 202, 208, 214, 222, 228, 234, 240, 248, 252, 254, 258
Offset: 0
Links
Crossrefs
Programs
-
Mathematica
NestList[#+Total[IntegerDigits[#,3]]&,1,60] (* Harvey P. Dale, Jun 14 2022 *)
Extensions
More terms from Neven Juric, Apr 11 2008