OFFSET
0,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..1062
FORMULA
MAPLE
A069111 := proc(n)
A007913(2^n+1) ;
end proc:
seq(A069111(n), n=0..30) ; # R. J. Mathar, Apr 24 2017
MATHEMATICA
core[n_] := Module[{p, e}, Product[{p, e} = pe; p^Mod[e, 2], {pe, FactorInteger[n]}]];
a[n_] := core[2^n + 1];
a /@ Range[0, 34] (* Jean-François Alcover, May 21 2020 *)
PROG
(PARI) for(n=1, 60, print1(core(2^n+1), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Apr 06 2002
EXTENSIONS
a(0)=2 prepended by Alois P. Heinz, Apr 01 2016
STATUS
approved