A095365 Primes p such that f(q) < f(p) for all primes q < p, where f(p) = lcm(2-1, 3-1, 5-1, 7-1, 11-1, ..., p-1).

2, 3, 5, 7, 11, 17, 19, 23, 29, 47, 53, 59, 83, 97, 101, 103, 107, 109, 149, 163, 167, 173, 179, 191, 193, 197, 227, 251, 257, 263, 269, 283, 293, 311, 317, 347, 359, 367, 383, 389, 467, 479, 487, 503, 509, 557, 563, 569, 587, 607, 619, 643, 653, 677, 709, 719

Offset

1,1

Comments

A058255 gives the values of f(p) for the primes p in this sequence. The odd primes in this sequence seem to be the only values appearing in A095366.

Links

Table of n, a(n) for n=1..56.

Example

13 is not a member of this sequence because f(11) = f(13) = 60.

Mathematica

nn=200; lst={}; lcm=1; Do[p=Prime[i]; newLCM=LCM[lcm, p-1]; If[newLCM>lcm, lcm=newLCM; AppendTo[lst, p]], {i, 2, nn}]; lst

Crossrefs

Sequence in context: A040049 A092787 A181562 * A042989 A333872 A302493

Adjacent sequences: A095362 A095363 A095364 * A095366 A095367 A095368

Keyword

nonn

Author

T. D. Noe, Jun 03 2004

Status

approved