cp's OEIS Frontend

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.

User: Elana Lessing

Elana Lessing's wiki page.

Elana Lessing has authored 3 sequences.

A274319 Numbers whose digit sum is divisible by 6.

Original entry on oeis.org

0, 6, 15, 24, 33, 39, 42, 48, 51, 57, 60, 66, 75, 84, 93, 99, 105, 114, 123, 129, 132, 138, 141, 147, 150, 156, 165, 174, 183, 189, 192, 198, 204, 213, 219, 222, 228, 231, 237, 240, 246, 255, 264, 273, 279, 282, 288, 291, 297, 303, 309, 312, 318, 321, 327, 330, 336, 345, 354, 363, 369, 372, 378, 381
Offset: 1

Author

Elana Lessing, Jun 17 2016

Keywords

Comments

Numbers n such that A007953(n) is a term of A008588. - Felix Fröhlich, Aug 18 2016
Any term of the sequence is also a term of A008585. - Felix Fröhlich, Aug 18 2016

Crossrefs

Cf. A007953.

Programs

  • C
    int i = 0;
    while(1){
       int sum = 0;
       int powerof10 = 10;
       int i2 = i;
       while(i2 != 0){
          sum += i2%powerof10;
          i2 /= 10;
          powerof10 *= 10;
       }
       if(sum%6 == 0) printf("%d\n", i);
       i++;
    }
    
  • PARI
    is(n)=my(d=digits(n));sum(k=1,#d,d[n])%6==0; \\ Joerg Arndt, Aug 18 2016
    
  • PARI
    is(n)=sumdigits(n)%6==0 \\ Charles R Greathouse IV, Aug 18 2016

A273188 Numbers whose digit sum is divisible by 8.

Original entry on oeis.org

0, 8, 17, 26, 35, 44, 53, 62, 71, 79, 80, 88, 97, 107, 116, 125, 134, 143, 152, 161, 169, 170, 178, 187, 196, 206, 215, 224, 233, 242, 251, 259, 260, 268, 277, 286, 295, 305, 314, 323, 332, 341, 349, 350, 358, 367, 376, 385, 394, 404, 413, 422, 431, 439, 440, 448, 457, 466
Offset: 1

Author

Elana Lessing, May 17 2016

Keywords

Comments

Is a(n) ~ 8n? - David A. Corneth, May 19 2016

Crossrefs

Cf. A062342 (subsequence of primes), A227793 (equivalent for 5).

Programs

  • Mathematica
    Select[Range@ 600, Mod[Total@ IntegerDigits@ #, 8] == 0 &] (* Michael De Vlieger, May 19 2016 *)
  • PARI
    isok(n) = sumdigits(n) % 8 == 0; \\ Michel Marcus, May 18 2016

A273159 Numbers whose digit sum is divisible by 7.

Original entry on oeis.org

0, 7, 16, 25, 34, 43, 52, 59, 61, 68, 70, 77, 86, 95, 106, 115, 124, 133, 142, 149, 151, 158, 160, 167, 176, 185, 194, 205, 214, 223, 232, 239, 241, 248, 250, 257, 266, 275, 284, 293, 304, 313, 322, 329, 331, 338, 340, 347, 356, 365, 374, 383, 392, 399, 403, 412, 419, 421, 428, 430, 437, 446, 455, 464
Offset: 1

Author

Elana Lessing, May 16 2016

Keywords

Crossrefs

Cf. A007953.

Programs

  • Mathematica
    Select[Range[0,500],Divisible[Total[IntegerDigits[#]],7]&] (* Harvey P. Dale, May 15 2019 *)
  • PARI
    for(n=0,10^3,if(sumdigits(n)%7==0,print1(n,", "))); \\ Joerg Arndt, May 17 2016