A283737 Numbers with digit sum 13 that are multiples of 13.

247, 364, 481, 715, 832, 1066, 1183, 1417, 1534, 1651, 2119, 2236, 2353, 2470, 2704, 2821, 3055, 3172, 3406, 3523, 3640, 4108, 4225, 4342, 4810, 5044, 5161, 5512, 6214, 6331, 7033, 7150, 7501, 8203, 8320, 9022, 10075, 10192, 10309, 10426, 10543, 10660, 11128, 11245

Offset

1,1

Links

Alois P. Heinz, Table of n, a(n) for n = 1..38073

Example

a(1) = A143164(16) = 247 = 19*13,
a(90) = A143164(1186) = 25402 = 1954*13.

Mathematica

With[{k = 13}, Select[Range@ 12000, Total@ IntegerDigits@ # == k && Divisible[#, k] &]] (* Michael De Vlieger, Mar 16 2017 *)

Prog

(PARI) for(k=1, 1000, if(13==sumdigits(m=13*k), print1(m", ")))

Crossrefs

Intersection of A008595 and A143164.

Cf. A007953.

Sequence in context: A175043 A051977 A177213 * A020313 A318055 A261378

Adjacent sequences: A283734 A283735 A283736 * A283738 A283739 A283740

Keyword

nonn,base

Author

Zak Seidov, Mar 15 2017

Status

approved