login
A181761
Start with 18; write down the sum of its digits; add last two terms; repeat.
1
18, 9, 27, 9, 36, 9, 45, 9, 54, 9, 63, 9, 72, 9, 81, 9, 90, 9, 99, 18, 117, 9, 126, 9, 135, 9, 144, 9, 153, 9, 162, 9, 171, 9, 180, 9, 189, 18, 207, 9, 216, 9, 225, 9, 234, 9, 243, 9, 252, 9, 261, 9, 270, 9, 279, 18, 297, 18, 315, 9, 324, 9, 333, 9, 342, 9
OFFSET
1,1
LINKS
FORMULA
a(2n+1) = A016096(n+2). - Michel Marcus, Oct 31 2014
EXAMPLE
a(1)=18; a(2)=1+8=9; a(3)=18+9=27, etc.
MATHEMATICA
NestList[{Total[#], Total[IntegerDigits[Total[#]]]}&, {18, 9}, 40]// Flatten (* Harvey P. Dale, Nov 10 2016 *)
CROSSREFS
Cf. A129888.
Sequence in context: A169736 A112876 A070703 * A233471 A040309 A373404
KEYWORD
nonn,base
AUTHOR
Anton Joha, Nov 14 2010
STATUS
approved