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

A048359 a(n) is the index of the smallest triangular number containing exactly n 4's.

Original entry on oeis.org

9, 94, 537, 1043, 29238, 28790, 94238, 942703, 2967970, 45748113, 170565790, 939618480, 2981759361, 29814031731, 94285146809, 298802358238, 2837045748113, 9428516473384, 29810549959517, 537482082424790, 699205897721757, 2974721655733337, 29032426496744790, 29814339990932029, 1043498506508221519
Offset: 1

Views

Author

Patrick De Geest, Mar 15 1999

Keywords

Crossrefs

Programs

  • Mathematica
    nsmall = Table[Infinity, 20];
    For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
      n0 = Count[IntegerDigits[p], 4];
      If[nsmall[[n0]] > i, nsmall[[n0]] = i]];
    ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)

Extensions

a(13)-a(14) from Lars Blomberg, May 13 2011
a(15)-a(18) from Giovanni Resta, Oct 30 2019
a(19)-a(25) from Max Alekseyev, Mar 07 2025

A036511 Smallest square containing exactly n 4's.

Original entry on oeis.org

4, 144, 1444, 44944, 6441444, 47444544, 4434494464, 44424414441, 4243443441444, 44844344414464, 444431244445444, 44044624434444544, 441544444344443449, 14444545446449449444, 346454444084444444644, 44024844440444424044544, 444448493447444044441744
Offset: 1

Views

Author

Keywords

Comments

a(21) > 10^28. - Giovanni Resta, Jul 27 2018

Crossrefs

Cf. A048349. - Jon E. Schoenfield, Jan 24 2009

Programs

  • Mathematica
    a[n_] := Block[{k=1}, While[DigitCount[k^2, 10, 4] != n, k++]; k^2]; Array[a, 7] (* Giovanni Resta, Jul 27 2018 *)

Extensions

a(13)-a(16) from Jon E. Schoenfield, Jan 17 2009
a(17) from Giovanni Resta, Jul 27 2018
Showing 1-2 of 2 results.