OFFSET
0,2
EXAMPLE
n = 25 -> 2^25 = 33554432 -> 23445533 = 17*23*61*983: a(25) = 17.
MATHEMATICA
a[n_] := FactorInteger[IntegerReverse[2^n]][[1, 1]]; Array[a, 60, 0] (* Amiram Eldar, Oct 02 2024 *)
PROG
(PARI) a(n) = if(n == 0, 1, factor(fromdigits(Vecrev(digits(2^n))))[1, 1]); \\ Amiram Eldar, Oct 02 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jan 06 2005
EXTENSIONS
Corrected by T. D. Noe, Nov 15 2006
STATUS
approved