%I #9 Aug 09 2015 14:52:17
%S 12,24,60,100,120,132,150,156,200,204,228,240,264,276,300,320,348,372,
%T 420,500,516,552,600,624,636,660,700,708,732,744,780,912,1000,1014,
%U 1050,1056,1068,1092,1100,1128,1164,1200,1212,1216,1236,1248,1272,1300,1308,1320,1356,1380,1392,1400
%N Nonsquarefree numbers n such that digit sum of n = digit sum of squarefree part of n.
%e Squarefree part of 624=2^4*3*13 is 39. Digit_sum(624)=12, digit_sum(39)=12
%o (PARI)
%o digsum(n)={local (d, p); d=0; p=n; while(p, d+=p%10; p=floor(p/10)); return(d)}
%o {for (n=4, 10^3,m=core(n);if(digsum(n)==digsum(m)&&m<>n,print(n)));}
%Y Cf. A006753, A230354, A230356, A230357.
%K nonn,base,less
%O 1,1
%A _Antonio Roldán_, Oct 16 2013
|