This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A283737 #29 Apr 07 2020 19:41:35 %S A283737 247,364,481,715,832,1066,1183,1417,1534,1651,2119,2236,2353,2470, %T A283737 2704,2821,3055,3172,3406,3523,3640,4108,4225,4342,4810,5044,5161, %U A283737 5512,6214,6331,7033,7150,7501,8203,8320,9022,10075,10192,10309,10426,10543,10660,11128,11245 %N A283737 Numbers with digit sum 13 that are multiples of 13. %H A283737 Alois P. Heinz, <a href="/A283737/b283737.txt">Table of n, a(n) for n = 1..38073</a> %e A283737 a(1) = A143164(16) = 247 = 19*13, %e A283737 a(90) = A143164(1186) = 25402 = 1954*13. %t A283737 With[{k = 13}, Select[Range@ 12000, Total@ IntegerDigits@ # == k && Divisible[#, k] &]] (* _Michael De Vlieger_, Mar 16 2017 *) %o A283737 (PARI) for(k=1,1000,if(13==sumdigits(m=13*k),print1(m","))) %Y A283737 Intersection of A008595 and A143164. %Y A283737 Cf. A007953. %K A283737 nonn,base %O A283737 1,1 %A A283737 _Zak Seidov_, Mar 15 2017