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-6 of 6 results.

A241787 Triangular numbers which have one or more occurrences of exactly four different digits.

Original entry on oeis.org

1035, 1275, 1326, 1378, 1485, 1540, 1596, 1653, 1830, 1953, 2016, 2145, 2346, 2415, 2485, 2701, 2850, 3081, 3160, 3240, 3486, 3570, 3741, 3916, 4095, 4186, 4278, 4371, 4560, 4753, 4851, 4950, 5460, 5671, 6105, 6328, 6903, 7021, 7140, 7260, 7381, 7503, 8256
Offset: 1

Views

Author

Colin Barker, Apr 28 2014

Keywords

Comments

The first term having a repeated digit is 10153.

Links

Crossrefs

Cf. A045914, A062691, A162304, A241788, A241789, A241790, A241791, A241792, A241812.
Cf. A000217.

Programs

  • Mathematica
    Select[Accumulate[Range[200]],Count[DigitCount[#],0]==6&] (* Harvey P. Dale, Jun 29 2022 *)
  • PARI
    s=[]; for(n=0, 300, if(#vecsort(eval(Vec(Str(n*(n+1)/2))), , 8)==4, s=concat(s, n*(n+1)/2))); s

A241788 Triangular numbers which have one or more occurrences of exactly five different digits.

Original entry on oeis.org

10296, 12403, 13695, 14028, 14365, 14706, 16290, 17205, 19306, 19503, 21736, 21945, 23871, 24310, 24531, 24753, 24976, 27495, 29403, 30628, 30876, 32640, 32896, 34716, 34980, 37128, 37401, 37950, 39621, 40186, 41328, 41905, 42195, 43071, 43956, 46971, 47586
Offset: 1

Views

Author

Colin Barker, Apr 28 2014

Keywords

Comments

The first term having a repeated digit is 100576.

Links

Crossrefs

Cf. A045914, A062691, A162304, A241787, A241789, A241790, A241791, A241792, A241812.
Cf. A000217.

Programs

  • PARI
    s=[]; for(n=0, 500, if(#vecsort(eval(Vec(Str(n*(n+1)/2))), , 8)==5, s=concat(s, n*(n+1)/2))); s

A241789 Triangular numbers which have one or more occurrences of exactly six different digits.

Original entry on oeis.org

102378, 103285, 104653, 106953, 108345, 109278, 109746, 120786, 124750, 132870, 135460, 137026, 138075, 150426, 152076, 154290, 158203, 162735, 168490, 170236, 174936, 178503, 189420, 190653, 194376, 197506, 198765, 203841, 205761, 215496, 219453, 231540
Offset: 1

Views

Author

Colin Barker, Apr 28 2014

Keywords

Comments

The first term having a repeated digit is 1004653.

Links

Crossrefs

Cf. A045914, A062691, A162304, A241787, A241788, A241790, A241791, A241792, A241812.
Cf. A000217.

Programs

  • Mathematica
    Select[Table[(n(n+1))/2,{n,447,681}],Length[Union[ IntegerDigits[ #]]] == 6&] (* Harvey P. Dale, Feb 17 2018 *)
  • PARI
    s=[]; for(n=0, 800, if(#vecsort(eval(Vec(Str(n*(n+1)/2))), , 8)==6, s=concat(s, n*(n+1)/2))); s

A241790 Triangular numbers which have one or more occurrences of exactly seven different digits.

Original entry on oeis.org

1024596, 1047628, 1053426, 1069453, 1073845, 1078246, 1203576, 1234806, 1345620, 1360425, 1362075, 1386945, 1390278, 1405326, 1430586, 1439056, 1462905, 1486950, 1493856, 1547920, 1549680, 1590436, 1602945, 1624503, 1642578, 1679028, 1684530, 1693720
Offset: 1

Views

Author

Colin Barker, Apr 28 2014

Keywords

Comments

The first term having a repeated digit is 10149765.

Links

Crossrefs

Cf. A045914, A062691, A162304, A241787, A241788, A241789, A241791, A241792, A241812.
Cf. A000217.

Programs

  • PARI
    s=[]; for(n=0, 2500, if(#vecsort(eval(Vec(Str(n*(n+1)/2))), , 8)==7, s=concat(s, n*(n+1)/2))); s

A241791 Triangular numbers which have one or more occurrences of exactly eight different digits.

Original entry on oeis.org

10348975, 10623745, 10725396, 10869453, 10934826, 12347965, 12357906, 12487503, 12647935, 12673095, 12784096, 13862745, 14756028, 14826735, 15237960, 15298746, 15304278, 15879430, 16247850, 16384950, 17084935, 17502486, 17543926, 17829406
Offset: 1

Views

Author

Colin Barker, Apr 28 2014

Keywords

Comments

The first term having a repeated digit is 100642578.

Links

Crossrefs

Cf. A045914, A062691, A162304, A241787, A241788, A241789, A241790, A241792, A241812.
Cf. A000217.

Programs

  • Mathematica
    Select[Accumulate[Range[7000]],Length[Union[IntegerDigits[#]]]==8&] (* Harvey P. Dale, Feb 09 2019 *)
  • PARI
    s=[]; for(n=0, 7000, if(#vecsort(eval(Vec(Str(n*(n+1)/2))), , 8)==8, s=concat(s, n*(n+1)/2))); s

A241792 Triangular numbers which have one or more occurrences of exactly nine different digits.

Original entry on oeis.org

102738945, 120784653, 120893475, 124875306, 126794850, 129854670, 137904528, 142087653, 143287056, 147069825, 149826705, 152783940, 153694278, 160249753, 162495378, 168370425, 173249805, 189725460, 192540876, 193405278, 197438256, 207193546, 230469715
Offset: 1

Views

Author

Colin Barker, Apr 28 2014

Keywords

Comments

The first term having a repeated digit is 1004976528.

Links

Crossrefs

Cf. A045914, A062691, A162304, A241787, A241788, A241789, A241790, A241791, A241812.
Cf. A000217.

Programs

  • PARI
    s=[]; for(n=0, 40000, if(#vecsort(eval(Vec(Str(n*(n+1)/2))), , 8)==9, s=concat(s, n*(n+1)/2))); s
Showing 1-6 of 6 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.