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 A064481 #18 Dec 04 2024 19:11:10 %S A064481 1,2,3,4,5,6,8,10,12,15,16,18,20,24,25,26,27,28,30,32,36,40,42,45,48, %T A064481 50,51,52,54,56,60,63,64,65,66,72,75,76,78,80,85,88,90,91,96,99,100, %U A064481 102,104,105,112,117,120,125,126,128,130,132,135,136,138,140,144,145 %N A064481 Numbers which are divisible by the sum of their base-5 digits. %H A064481 Harry J. Smith, <a href="/A064481/b064481.txt">Table of n, a(n) for n = 1..1000</a> %e A064481 Base-5 representation of 28 is 103; 1 + 0 + 3 = 4 divides 28. %o A064481 (ARIBAS): maxarg := 160; for n := 1 to maxarg do if n mod sum(basearray(n,5)) = 0 then write(n," "); end; end; function basearray(n,b: integer): array; var k: integer; stk: stack; begin while n > 0 do k := n mod b; stack_push(stk,k); n := (n - k) div b; end; return stack2array(stk); end;. %o A064481 (PARI) isok(n) = !(n % sumdigits(n, 5)); \\ _Michel Marcus_, Jun 24 2018 %Y A064481 Cf. A005349 (base 10), A049445 (base 2), A064150 (base 3), A064438 (base 4), A344341. %K A064481 base,easy,nonn %O A064481 1,2 %A A064481 _Klaus Brockhaus_, Oct 03 2001 %E A064481 Offset changed from 0 to 1 by _Harry J. Smith_, Sep 15 2009