OFFSET
1,3
COMMENTS
LINKS
Rémi Eismann, Table of n, a(n) for n = 1..9790
EXAMPLE
MAPLE
MATHEMATICA
nmax = 10000;
ppmax = 12*nmax; (* increase prime power max coef 12 in case of overflow *)
A000961 = Join[{1}, Select[Range[2, ppmax], PrimePowerQ]];
Table[a[n], {n, 1, nmax}] (* Jean-François Alcover, Aug 06 2023 *)
CROSSREFS
KEYWORD
nonn,easy,changed
AUTHOR
Rémi Eismann, Jan 23 2011
STATUS
approved