%I
%S 1,2,3,5,6,7,10,11,12,14,15,16,19,20,21,23,24,25,28,29,30,32,33,34,37,
%T 38,41,42,43,46,47,49,50,51,52,55,56,58,59,60,61,64,65,67,68,69,70,73,
%U 74,76,77,78,82,83,85,86,87,89,91,92,94,95,96,98,100,101,102,104,105,106,109,110,111,113,114
%N Numbers n such that the sum of digits of n is squarefree.
%C Numbers n such that A007953(n) is a term of A005117.  _Felix FrÃ¶hlich_, Nov 21 2017
%H Robert Israel, <a href="/A295389/b295389.txt">Table of n, a(n) for n = 1..10000</a>
%p select(n > numtheory:issqrfree(convert(convert(n,base,10),`+`)), [$1..200]); # _Robert Israel_, Nov 21 2017
%o (PARI) is(n) = issquarefree(sumdigits(n));
%o for(n = 1, 200, if(is(n), print1(n,", ")))
%Y Cf. A005117, A007953. Includes A028834.
%K hear,nonn,base
%O 1,2
%A _Nile Nepenthe Wynar_, Nov 21 2017
