%I #21 Aug 18 2024 04:19:11
%S 5,11,59,419,839,232792559,5354228879,2329089562799,144403552893599,
%T 442720643463713815199,591133442051411133755680799,
%U 69720375229712477164533808935312303556799
%N Primes p such that p+1 is LCM(1,...,m) for some (usually more than one) m.
%C Prime numbers of the form A051451(k)-1.
%C Primes p = LCM(1,...,m) - 1, where m is a prime power. (The prime powers give all values, and do so uniquely.) - _Daniel Forgues_, Apr 28 2014
%H Amiram Eldar, <a href="/A057824/b057824.txt">Table of n, a(n) for n = 1..23</a>
%e 232792559 + 1 = LCM(1,...,m) for m = 19, 20, 21, 22.
%t Select[FoldList[LCM, Select[Range[100], PrimePowerQ]] - 1, PrimeQ] (* _Amiram Eldar_, Aug 18 2024 *)
%o (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
%Y Cf. A003418, A051451, A049536, A049537.
%K nonn
%O 1,1
%A _Labos Elemer_, Nov 08 2000