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.

A227246 List of prime factors of 10^(10^(10^100)) - 10.

Original entry on oeis.org

2, 3, 3, 3, 3, 5, 37, 67, 83, 199, 307, 397, 439, 613, 1123, 1231, 1283, 1627, 2467, 2707, 3203, 3637, 4507, 4519, 5987, 9013, 9043, 9929, 12547, 14369, 14747, 16729, 16843, 16963, 17959, 18973, 21649, 25603, 30307, 32003, 34849, 40151, 42307, 43013, 49787
Offset: 1

Views

Author

Arkadiusz Wesolowski, Nov 02 2013

Keywords

Crossrefs

Programs

  • Mathematica
    (* Import Mmca coding for "SuperPowerMod" and "LogStar" from text file and then *) k = 5; lst = {2, 3, 3, 3, 3, 5}; While[k < 10001, If[ SuperPowerMod[10, 4, Prime@ k] == 10, AppendTo[lst, Prime@ k]]; k++]; lst (* Robert G. Wilson v, Mar 01 2014 *)

A078814 Smallest prime factor of googolplex - n that exceeds 13, or 1 if googolplex - n is 13-smooth.

Original entry on oeis.org

17, 1433, 499679, 1279, 31, 149
Offset: 1

Views

Author

Ed Pegg Jr and Robert G. Wilson v, Dec 06 2002

Keywords

Comments

Seventh term is not known. Sequence continues ?, 625392489737, 19, 37, 5419, 107, 23, 60149, 1733, 89, 8543, 17, 5261, 229, 8656871, 4273, 14009, 29, 509, 43628661784403, 24539783, 19, 347, 12414692011, 523, 151, 421, 35816135619181, 17, 23, 184309, ?, 181, 288481, 163, 41, 743, 13337, 71, 53, 19, 59, 113, 37957721, ... where the unknown numbers exceed 25 * 10^12. - Dario Alpern, Jul 03 2003

Crossrefs

Programs

  • Mathematica
    (* For any individual n *) k = 17; While[ !PrimeQ[k] || PowerMod[10, 10^100, k] - n != 0, k += 2]; k
  • PARI
    a(n) = forprime(p=17, oo, if(Mod(10, p)^lift(Mod(10, p-1)^100) == n, return(p))); \\ Jinyuan Wang, Apr 17 2020

Extensions

Name edited by Peter Munn, Feb 20 2025
Showing 1-2 of 2 results.