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.

Showing 1-4 of 4 results.

A082259 Triangle read by rows in which the n-th row contains n multiples of n with digit sum n.

Original entry on oeis.org

1, 2, 20, 3, 12, 21, 4, 40, 112, 220, 5, 50, 140, 230, 320, 6, 24, 42, 60, 114, 132, 7, 70, 133, 322, 511, 700, 1015, 8, 80, 152, 224, 440, 512, 800, 1016, 9, 18, 27, 36, 45, 54, 63, 72, 81, 190, 280, 370, 460, 550, 640, 730, 820, 910, 1090, 209, 308, 407, 506, 605, 704, 803, 902, 2090, 3080, 4070
Offset: 1

Views

Author

Amarnath Murthy, Apr 12 2003

Keywords

Examples

			Triangle begins:
1
2, 20;
3, 12,  21;
4, 40, 112, 220;
5, 50, 140, 230, 320;
6, 24,  42,  60, 114, 132;
7, 70, 133, 322, 511, 700, 1015;
8, 80, 152, 224, 440, 512,  800, 1016;
9, 18,  27,  36,  45,  54,   63,   72,  81;
		

Crossrefs

Programs

  • Mathematica
    Table[Take[Select[n Range[10000],Total[IntegerDigits[#]]==n&],n],{n,20}] // Flatten (* Harvey P. Dale, Sep 16 2019 *)

Extensions

Corrected by Anne Donovan, May 29 2003
Corrected and extended by David Wasserman, Aug 26 2004

A082260 a(n) = n-th multiple of n with digit sum n.

Original entry on oeis.org

1, 20, 21, 220, 320, 132, 1015, 1016, 81, 1090, 4070, 516, 2353, 2534, 1185, 3760, 3842, 846, 5662, 14960, 3738, 7546, 12857, 7296, 28825, 25298, 6885, 39088, 43877, 78960, 61969, 78368, 64977, 98872, 258965, 69984, 187849, 367688, 199758
Offset: 1

Views

Author

Amarnath Murthy, Apr 12 2003

Keywords

Crossrefs

Main diagonal of A082259 and of A245062.
Row sums give A082261.

Extensions

Corrected and extended by Ray Chandler, Oct 08 2005

A082262 Average of row n of A082259.

Original entry on oeis.org

1, 11, 12, 94, 149, 63, 394, 404, 45, 604, 1244, 294, 1246, 1391, 705, 2149, 2087, 593, 3466, 8930, 2301, 4927, 7025, 4875, 17809, 15083, 5052, 24850, 26858, 67065, 42979, 56453, 56040, 75400, 152351, 59193, 108631, 228827, 145485, 1366618, 465026
Offset: 1

Views

Author

Amarnath Murthy, Apr 12 2003

Keywords

Crossrefs

Programs

  • PARI
    a(n) = my(s=0, k=1); for (i=1, n, while (sumdigits(k*n) != n, k++); s += k*n; k++;); s/n; \\ Michel Marcus, Mar 26 2020

Formula

a(n) = A082261(n)/n.

Extensions

Corrected and extended by Ray Chandler, Oct 08 2005

A082261 Row sums in A082259.

Original entry on oeis.org

1, 22, 36, 376, 745, 378, 2758, 3232, 405, 6040, 13684, 3528, 16198, 19474, 10575, 34384, 35479, 10674, 65854, 178600, 48321, 108394, 161575, 117000, 445225, 392158, 136404, 695800, 778882, 2011950, 1332349, 1806496, 1849320, 2563600
Offset: 1

Views

Author

Amarnath Murthy, Apr 12 2003

Keywords

Crossrefs

Programs

  • Mathematica
    Do[s = t = 0; i = 1; While[t < n, If[Plus @@ IntegerDigits[i*n] == n, t++; s += i*n]; i++ ]; Print[s], {n, 1, 50}] (* Ryan Propper, Jul 16 2005 *)

Extensions

Corrected and extended by Ryan Propper, Jul 16 2005
Showing 1-4 of 4 results.