A098751 a(n+1) = a(n) + 10's complement of each of the digits of a(n); a(0) = 0.
0, 10, 29, 38, 47, 56, 65, 74, 83, 92, 101, 129, 147, 165, 183, 201, 228, 246, 264, 282, 300, 327, 345, 363, 381, 399, 408, 426, 444, 462, 480, 498, 507, 525, 543, 561, 579, 588, 597, 606, 624, 642, 660, 678, 687, 696, 705, 723, 741, 759, 768, 777, 786, 795
Offset: 0
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
NestList[Total[10-IntegerDigits[#]]+#&,0,60] (* Harvey P. Dale, Jan 02 2014 *)
Extensions
More terms from Sam Alexander, Jan 06 2005
Comments