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

A018857 Smallest power of 3 that begins with n.

Original entry on oeis.org

1, 27, 3, 4782969, 59049, 6561, 729, 81, 9, 10460353203, 1162261467, 129140163, 1350851717672992089, 14348907, 1594323, 16677181699666569, 177147, 1853020188851841, 19683, 205891132094649, 2187, 22876792454961
Offset: 1

Views

Author

Keywords

Crossrefs

Cf. A018802 (k=2), this sequence (k=3), A018859 (k=4), A018861 (k=5), A018863 (k=6), A018865 (k=7), A018867 (k=8), A018869 (k=9).

Formula

a(n) = 3^A018858(n). - Seiichi Manyama, Jan 29 2017
a(3^n) = 3^n for n >= 0. - Seiichi Manyama, Jan 29 2017

A018862 5^a(n) is smallest power of 5 beginning with n.

Original entry on oeis.org

0, 2, 5, 11, 1, 4, 7, 50, 10, 63, 23, 3, 56, 26, 6, 69, 49, 29, 9, 82, 62, 42, 22, 12, 2, 75, 55, 45, 25, 15, 5, 88, 68, 58, 48, 38, 28, 18, 8, 91, 81, 71, 61, 51, 41, 31, 21, 11, 104, 94, 84, 74, 167, 64, 54, 44, 137, 34, 24, 117, 14, 4, 97, 87, 180, 77, 67, 160, 57, 150, 47, 37, 130
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • PARI
    a(n) = my(k=0, ss=Str(n)); while(strsplit(Str(5^k), ss)[1] != "", k++); k; \\ Michel Marcus, Aug 19 2025

A374922 a(n) is the least k such that 3^k begins with n!.

Original entry on oeis.org

0, 0, 3, 8, 5, 805, 1689, 12317, 197209, 520852, 4493819, 16769097, 2053077332, 1110380591, 39230711849, 516641987008, 62653098988435, 398166000236882, 7896283077809532, 99956735615338266, 5161719458617927763, 63295038588725505792, 659220983938327840981
Offset: 0

Views

Author

Zhining Yang, Jul 23 2024

Keywords

Examples

			a(4) = 5 because 3^5 = 243 is the smallest power of 3 beginning with 4! = 24.
		

Crossrefs

Programs

  • Mathematica
    a[n_] := Module[{target = IntegerDigits[n!], k = 0},
       While[UnsameQ[Take[IntegerDigits[3^k], Length@target], target],
        k++]; k];
    Table[a[n], {n, 0, 8}]

Formula

a(n) = A018858(n!).

Extensions

a(13) onwards from Zhao Hui Du, Oct 03 2024
Showing 1-3 of 3 results.