OFFSET
1,2
COMMENTS
The first prime power is considered to be 1 here.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Block[{nn = 216, s}, s = {1}~Join~Select[Range[nn], PrimePowerQ]; Map[SelectFirst[# + Range[0, #], SquareFreeQ] &, s]] (* Michael De Vlieger, Oct 30 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Feb 17 2009, Feb 18 2009
EXTENSIONS
Extended by Ray Chandler, Jun 19 2009
STATUS
approved