OFFSET
1,1
LINKS
MATHEMATICA
A000668 := Select[2^Range[1000] - 1, PrimeQ]; Table[A000668[[n + 1]] - A000668[[n]], {n, 1, 10}] (* G. C. Greubel, Oct 03 2017 *)
Differences[2^MersennePrimeExponent[Range[20]]-1] (* Harvey P. Dale, Mar 31 2022 *)
PROG
(PARI) a=0; b=0; forprime(p=1, 1e2, if(ispseudoprime(2^p-1) && a==0, a=2^p-1); if(ispseudoprime(2^p-1) && a!=0, b=2^p-1; if(a!=b, print1(b-a, ", ")); a=b)) \\ Felix Fröhlich, Aug 12 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Apr 18 2008
EXTENSIONS
a(8)-a(11) from Felix Fröhlich, Aug 12 2014
STATUS
approved