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.

A117366 a(n) = smallest prime greater than the largest prime dividing n.

Original entry on oeis.org

2, 3, 5, 3, 7, 5, 11, 3, 5, 7, 13, 5, 17, 11, 7, 3, 19, 5, 23, 7, 11, 13, 29, 5, 7, 17, 5, 11, 31, 7, 37, 3, 13, 19, 11, 5, 41, 23, 17, 7, 43, 11, 47, 13, 7, 29, 53, 5, 11, 7, 19, 17, 59, 5, 13, 11, 23, 31, 61, 7, 67, 37, 11, 3, 17, 13, 71, 19, 29, 11, 73, 5, 79, 41, 7, 23, 13, 17, 83, 7
Offset: 1

Views

Author

Leroy Quet, Mar 10 2006

Keywords

Examples

			5 is the largest prime dividing 10. So a(10) is the smallest prime > 5, which is 7.

Links

Crossrefs

Cf. A117364, A117365, A117367.
Cf. A000040, A006530, A151800, A159081.

Programs

  • Haskell
    a117366 = a151800 . a006530  -- Reinhard Zumkeller, Apr 06 2015
  • Mathematica
    Table[Prime[PrimePi[FactorInteger[n][[Length[FactorInteger[n]]]][[1]]]+1], {n, 80}] (* Stefan Steinerberger, Apr 09 2006 *)
  • PARI
    A117366(n) = if(1==n, 2, nextprime(1+vecmax(factor(n)[, 1]))); \\ Antti Karttunen, Jan 15 2020

Formula

a(n) = A151800(A006530(n)). - Reinhard Zumkeller, Apr 06 2015
a(n) = A000040(A159081(n)). - Antti Karttunen, Jan 15 2020

Extensions

More terms from Stefan Steinerberger, Apr 09 2006

A117365 a(n) = largest prime less than the smallest prime dividing n (or 1 if there is no such prime).

Original entry on oeis.org

1, 1, 2, 1, 3, 1, 5, 1, 2, 1, 7, 1, 11, 1, 2, 1, 13, 1, 17, 1, 2, 1, 19, 1, 3, 1, 2, 1, 23, 1, 29, 1, 2, 1, 3, 1, 31, 1, 2, 1, 37, 1, 41, 1, 2, 1, 43, 1, 5, 1, 2, 1, 47, 1, 3, 1, 2, 1, 53, 1, 59, 1, 2, 1, 3, 1, 61, 1, 2, 1, 67, 1, 71, 1, 2, 1, 5, 1, 73, 1, 2, 1, 79, 1, 3, 1, 2, 1, 83, 1, 5, 1, 2, 1, 3, 1
Offset: 1

Views

Author

Leroy Quet, Mar 10 2006

Keywords

Comments

a(n) = 1 if and only if n is even or if n = 1.

Examples

			5 is the smallest prime dividing 35. So a(35) is the largest prime < 5, which is 3.

Links

Crossrefs

Cf. A117364, A117366, A117367, A117368.

Programs

  • Mathematica
    a[n_] := If[EvenQ[n], 1, Prime[PrimePi[FactorInteger[n][[1]][[1]]] - 1]]; Table[a[n], {n, 2, 80}] (* Stefan Steinerberger, Mar 14 2006 *)
Table[NextPrime[FactorInteger[n][[1, 1]], -1] /. -2 -> 1, {n, 96}] (* Michael De Vlieger, Sep 16 2017 *)

Extensions

More terms from Stefan Steinerberger, Mar 14 2006
More terms from Franklin T. Adams-Watters, Aug 29 2006

A117367 a(n) = smallest prime greater than the smallest prime dividing n.

Original entry on oeis.org

2, 3, 5, 3, 7, 3, 11, 3, 5, 3, 13, 3, 17, 3, 5, 3, 19, 3, 23, 3, 5, 3, 29, 3, 7, 3, 5, 3, 31, 3, 37, 3, 5, 3, 7, 3, 41, 3, 5, 3, 43, 3, 47, 3, 5, 3, 53, 3, 11, 3, 5, 3, 59, 3, 7, 3, 5, 3, 61, 3, 67, 3, 5, 3, 7, 3, 71, 3, 5, 3, 73, 3, 79, 3, 5, 3, 11, 3, 83, 3, 5, 3, 89, 3, 7, 3, 5, 3, 97, 3, 11, 3, 5
Offset: 1

Views

Author

Leroy Quet, Mar 10 2006

Keywords

Comments

All even-indexed terms are 3.

Examples

			5 is the smallest prime dividing 35. So a(35) is the smallest prime > 5, which is 7.

Links

Crossrefs

Cf. A117364, A117365, A117366.

Programs

  • Maple
    with(numtheory): a:=proc(n): if n=1 then 2 else nextprime(factorset(n)[1]) fi: end: seq(a(n),n=1..100); # Emeric Deutsch, Apr 22 2006
  • Mathematica
    Table[NextPrime[FactorInteger[n][[1, 1]]], {n, 93}] (* Michael De Vlieger, Sep 16 2017 *)

Extensions

More terms from Emeric Deutsch, Apr 22 2006
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.