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.

A139089 a(n) = prime(n)!/9 + 1.

Original entry on oeis.org

561, 4435201, 691891201, 39520825344001, 13516122267648001, 2872446304320552960001, 982417999304411328282624000001, 913648739353102535302840320000001
Offset: 4

Views

Author

Artur Jasinski, Apr 08 2008

Keywords

Crossrefs

Programs

  • Mathematica
    Table[(Prime[n]! + 9)/9, {n, 4, 30}]
    Prime[Range[4,12]]!/9+1 (* Harvey P. Dale, Aug 22 2020 *)

A139091 a(n) = largest prime divisor of the number prime(n)!/9 + 1.

Original entry on oeis.org

17, 827, 22319071, 1718296754087, 35662591735219, 477262171871, 1609727002420791262479701, 146215297537890243023, 2020914387433686758547638152441, 1073774770807266077323
Offset: 4

Views

Author

Artur Jasinski, Apr 08 2008

Keywords

Crossrefs

Programs

  • Mathematica
    a = {}; Do[w = FactorInteger[(Prime[n]! + 9)/9]; AppendTo[a, Last[w][[1]]], {n, 4, 16}]; a

A139090 a(n) = smallest prime divisor of the number prime(n)!/9 + 1.

Original entry on oeis.org

3, 31, 31, 23, 379, 83, 610301, 293, 101, 47, 281, 127, 278174297, 2971, 109, 5090615254324820333, 46411, 106087, 269, 288931, 59047158151, 120871, 373, 19140822523, 56595118147, 1708207, 331, 38749, 157, 2927, 2143
Offset: 4

Views

Author

Artur Jasinski, Apr 08 2008

Keywords

Crossrefs

Programs

  • Mathematica
    a = {}; Do[w = FactorInteger[(Prime[n]! + 9)/9]; AppendTo[a, First[w][[1]]], {n, 4, 16}]; a
    Table[FactorInteger[p!/9+1][[1,1]],{p,Prime[Range[4,35]]}] (* Harvey P. Dale, Sep 19 2020 *)

Extensions

More terms from Jon E. Schoenfield, Jul 16 2010
Showing 1-3 of 3 results.