A095197 a(1) = 1, a(n+1) = 2 * digit reversal of a(n).
1, 2, 4, 8, 16, 122, 442, 488, 1768, 17342, 48742, 49568, 173188, 1762742, 4945342, 4870988, 17781568, 173037542, 491460742, 494128388, 1767642988, 17784935342, 48707897542, 49159741568, 173029590388, 1766191840742, 4940963833342
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A095198.
Programs
-
Mathematica
NestList[2*IntegerReverse[#]&,1,30] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 21 2020 *)
Extensions
Corrected and extended by Johan Claes and Rick L. Shepherd, Jun 07 2004