OFFSET
1,1
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..188
MATHEMATICA
a = {}; Do[If[PrimeQ[n] && !PrimeQ[2^n - 1], w = 2^n - 1; c = FactorInteger[w]; b = c[[1]][[1]]; AppendTo[a, b]], {n, 2, 130}]; a
PROG
(PARI) lista() = {vi = readvec("c:/gp/bfiles/b054723.txt"); vm = vector(#vi, i, 2^vi[i]-1); for (i=1, #vm, print1(factor(vm[i])[1, 1], ", "); ); } \\ Michel Marcus, May 14 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 11 2007
EXTENSIONS
More terms from Michel Marcus, May 14 2014
Terms to a(150) in b-file from Charles R Greathouse IV, May 14 2014
a(151)-a(188) in b-file added at the suggestion of Eric Chen by Max Alekseyev, Apr 25 2022
STATUS
approved