A057824 Primes p such that p+1 is LCM(1,...,m) for some (usually more than one) m.
5, 11, 59, 419, 839, 232792559, 5354228879, 2329089562799, 144403552893599, 442720643463713815199, 591133442051411133755680799, 69720375229712477164533808935312303556799
Offset: 1
Keywords
Examples
232792559 + 1 = LCM(1,...,m) for m = 19, 20, 21, 22.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..23
Programs
-
Mathematica
Select[FoldList[LCM, Select[Range[100], PrimePowerQ]] - 1, PrimeQ] (* Amiram Eldar, Aug 18 2024 *)
-
PARI
L=1; for(n=2,1e3,if(isprimepower(n,&p) && ispseudoprime((L*=p)-1), print1(L-1", "))) \\ Charles R Greathouse IV, Apr 28 2014
Comments