A193343 a(1) = 42; a(n) = 10*(sum of digits of a(n-1)) + (last digit of a(n-1)) + 1 for n >= 2.

42, 63, 94, 135, 96, 157, 138, 129, 130, 41, 52, 73, 104, 55, 106, 77, 148, 139, 140, 51, 62, 83, 114, 65, 116, 87, 158, 149, 150, 61, 72, 93, 124, 75, 126, 97, 168, 159, 160, 71, 82, 103, 44, 85, 136, 107, 88, 169, 170, 81, 92, 113, 54, 95, 146, 117, 98, 179, 180, 91, 102, 33, 64, 105, 66, 127, 108, 99, 190, 101, 22, 43, 74, 115, 76, 137, 118, 109, 110, 21, 32, 53, 84, 125, 86, 147, 128, 119, 120, 31, 42, 63

Offset

1,1

Comments

The sequence is periodic: a(91) = a(1). - Georg Fischer, Jan 15 2021

References

Clifford A. Pickover, A Passion for Mathematics, John Wiley & Sons, Inc., 2005, pp. 103 and 311 (for "Trains with crystal balls").

Links

Table of n, a(n) for n=1..92.

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).

Mathematica

nxt[n_]:=Module[{idn=IntegerDigits[n]}, 10Total[idn]+Last[idn]+1]; NestList[nxt, 42, 120] (* Harvey P. Dale, Jul 23 2011 *)

Crossrefs

Cf. A007953, A010879.

Sequence in context: A363730 A248441 A119650 * A118074 A350641 A115957

Adjacent sequences: A193340 A193341 A193342 * A193344 A193345 A193346

Keyword

nonn,base,easy

Author

Harvey P. Dale, Jul 23 2011

Status

approved