login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A023503 Greatest prime divisor of prime(n) - 1. 15
2, 2, 3, 5, 3, 2, 3, 11, 7, 5, 3, 5, 7, 23, 13, 29, 5, 11, 7, 3, 13, 41, 11, 3, 5, 17, 53, 3, 7, 7, 13, 17, 23, 37, 5, 13, 3, 83, 43, 89, 5, 19, 3, 7, 11, 7, 37, 113, 19, 29, 17, 5, 5, 2, 131, 67, 5, 23, 7, 47, 73, 17, 31, 13, 79, 11, 7, 173, 29, 11, 179, 61, 31, 7, 191 (list; graph; refs; listen; history; text; internal format)
OFFSET

2,1

COMMENTS

Baker & Harman (1998) show that there are infinitely many n such that a(n) > prime(n)^0.677. This improves on earlier work of Goldfeld, Hooley, Fouvry, Deshouillers, Iwaniec, Motohashi, et al.

Fouvry shows that a(n) > prime(n)^0.6683 for a positive proportion of members of this sequence. See Fouvry and also Baker & Harman (1996) which corrected an error in the former work.

The record values are the Sophie Germain primes A005384. - Daniel Suteu, May 09 2017

Conjecture: every prime is in the sequence. Cf. A035095 (see my comment). - Thomas Ordowski, Aug 06 2017

LINKS

T. D. Noe, Table of n, a(n) for n = 2..10000

R. C. Baker and G. Harman, The Brun-Titchmarsh theorem on average, Analytic Number Theory (Proceedings in honor of Heini Halberstam), Birkhauser, Boston, 1996, pp. 39-103.

R. Baker and G. Harman, Shifted primes without large prime factors, Acta Arithmetica 83 (1998), pp. 331-361.

Etienne Fouvry, Théorème de Brun-Titchmarsh; application au théorème de Fermat, Invent. Math 79 (1985), 383-407.

D. M. Goldfeld, On the number of primes p for which p + a has a large prime factor, Mathematika 16 (1969), pp. 23-27.

R. R. Hall, Some properties of the sequence {p-1}, Acta Arith. 28 (1975/76), 101-105.

G. Harman, On the greatest prime factor of p-1 with effective constants

FORMULA

a(n) = A006530(A006093(n)). - Michel Marcus, Aug 15 2015

MAPLE

A023503 := proc(n)

    A006530(ithprime(n)-1) ;

end proc:

seq( A023503(n), n=2..80) ; # R. J. Mathar, Sep 07 2016

MATHEMATICA

Table[FactorInteger[Prime[n] - 1][[-1, 1]], {n, 2, 100}] (* T. D. Noe, Jun 08 2011 *)

PROG

(PARI) a(n) = vecmax(factor(prime(n)-1)[, 1]); \\ Michel Marcus, Aug 15 2015

CROSSREFS

Cf. A006093, A006530.

Sequence in context: A203955 A039638 A090926 * A241195 A039640 A053811

Adjacent sequences:  A023500 A023501 A023502 * A023504 A023505 A023506

KEYWORD

nonn

AUTHOR

Clark Kimberling

EXTENSIONS

Comments, references, and links from Charles R Greathouse IV, Mar 04 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 31 07:30 EDT 2020. Contains 334747 sequences. (Running on oeis4.)