|
| |
|
|
A016082
|
|
Add 4, then reverse the decimal digits.
|
|
5
| |
|
|
10, 41, 54, 85, 98, 201, 502, 605, 906, 19, 32, 63, 76, 8, 21, 52, 65, 96, 1, 5, 9, 31, 53, 75, 97, 101, 501, 505, 905, 909, 319, 323, 723, 727, 137, 141, 541, 545, 945, 949, 359, 363, 763, 767, 177, 181, 581, 585, 985, 989, 399, 304, 803, 708, 217, 122, 621, 526
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Reversal = ToExpression @ StringReverse @ ToString[ # ] &; a[ 1 ]=10; a[ n_Integer ] := Reversal[ a[ n - 1 ] + 4 ]; Table[ a[ n ], {n, 1, 80} ] (* From Robert G. Wilson v *)
NestList[FromDigits[Reverse[IntegerDigits[# + 4]]] &, 10, 70] (* From Harvey P. Dale, Jan 18 2011 *)
|
|
|
CROSSREFS
| All of A003608, A016081, A016082 (and possibly others) eventually reach the trajectory of 1 shown in A119031. Cf. A055198.
Sequence in context: A054885 A000449 A027274 * A003355 A022278 A006323
Adjacent sequences: A016079 A016080 A016081 * A016083 A016084 A016085
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com)
|
|
|
EXTENSIONS
| Edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Aug 04 2010
|
| |
|
|
