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.

A004228 a(n) = 10000*log_10(n) rounded down.

Original entry on oeis.org

0, 3010, 4771, 6020, 6989, 7781, 8450, 9030, 9542, 10000, 10413, 10791, 11139, 11461, 11760, 12041, 12304, 12552, 12787, 13010, 13222, 13424, 13617, 13802, 13979, 14149, 14313, 14471, 14623
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Floor[10^4 Log[10,Range[30]]] (* Harvey P. Dale, Feb 07 2015 *)

A004225 a(n) = 1000*log_10(n) rounded down.

Original entry on oeis.org

0, 301, 477, 602, 698, 778, 845, 903, 954, 1000, 1041, 1079, 1113, 1146, 1176, 1204, 1230, 1255, 1278, 1301, 1322, 1342, 1361, 1380, 1397, 1414, 1431, 1447, 1462, 1477, 1491, 1505, 1518, 1531, 1544
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Floor[1000 Log10[Range[40]]] (* Harvey P. Dale, May 27 2024 *)

A004224 a(n) = 100*log_10(n) rounded up.

Original entry on oeis.org

0, 31, 48, 61, 70, 78, 85, 91, 96, 100, 105, 108, 112, 115, 118, 121, 124, 126, 128, 131, 133, 135, 137, 139, 140, 142, 144, 145, 147, 148, 150, 151, 152, 154, 155, 156, 157, 158, 160, 161, 162, 163, 164, 165
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Ceiling[100 Log10[Range[50]]] (* Harvey P. Dale, Jun 05 2021 *)

A194129 Number of digits in n^100.

Original entry on oeis.org

1, 1, 31, 48, 61, 70, 78, 85, 91, 96, 101, 105, 108, 112, 115, 118, 121, 124, 126, 128, 131, 133, 135, 137, 139, 140, 142, 144, 145, 147, 148, 150, 151, 152, 154, 155, 156, 157, 158, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 170
Offset: 0

Views

Author

Kausthub Gudipati, Aug 27 2011

Keywords

Comments

170 is the smallest number (other than 1) appearing more than once in the sequence and 159 is the largest number not appearing in this sequence.

Programs

  • Mathematica
    Join[{1},IntegerLength[Range[60]^100]] (* Harvey P. Dale, Sep 10 2011 *)

Formula

a(n) = 1+A004222(n) = A055642(n^100) - R. J. Mathar, Aug 27 2011
Showing 1-4 of 4 results.