OFFSET
1,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(n -> numtheory:-issqrfree(convert(convert(n, base, 10), `+`)), [$1..200]); # Robert Israel, Nov 21 2017
PROG
(PARI) is(n) = issquarefree(sumdigits(n));
for(n = 1, 200, if(is(n), print1(n, ", ")))
CROSSREFS
KEYWORD
AUTHOR
Nile Nepenthe Wynar, Nov 21 2017
STATUS
approved