OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..32
FORMULA
a(n) = A069554(2^n).
MATHEMATICA
a[n_] := Block[{k = 2^n}, While[GCD[k, FromDigits@ Reverse@ IntegerDigits@ k] != 2^n, k += 2^n]; k]; Array[a, 17] (* Giovanni Resta, Nov 14 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Labos Elemer, Jun 03 2002
EXTENSIONS
a(22)-a(25) from Giovanni Resta, Oct 29 2019
STATUS
approved