|
%I #29 Apr 07 2020 19:41:35
%S 247,364,481,715,832,1066,1183,1417,1534,1651,2119,2236,2353,2470,
%T 2704,2821,3055,3172,3406,3523,3640,4108,4225,4342,4810,5044,5161,
%U 5512,6214,6331,7033,7150,7501,8203,8320,9022,10075,10192,10309,10426,10543,10660,11128,11245
%N Numbers with digit sum 13 that are multiples of 13.
%H Alois P. Heinz, <a href="/A283737/b283737.txt">Table of n, a(n) for n = 1..38073</a>
%e a(1) = A143164(16) = 247 = 19*13,
%e a(90) = A143164(1186) = 25402 = 1954*13.
%t With[{k = 13}, Select[Range@ 12000, Total@ IntegerDigits@ # == k && Divisible[#, k] &]] (* _Michael De Vlieger_, Mar 16 2017 *)
%o (PARI) for(k=1,1000,if(13==sumdigits(m=13*k),print1(m",")))
%Y Intersection of A008595 and A143164.
%Y Cf. A007953.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 15 2017
|
