A242017 Smallest prime factor of composites in the sequence A000051(n) = 2^n+1.

3, 3, 5, 3, 3, 5, 3, 17, 3, 5, 3, 3, 5, 3, 17, 3, 5, 3, 97, 3, 5, 3, 17, 3, 5, 3, 641, 3, 5, 3, 17, 3, 5, 3, 257, 3, 5, 3, 17, 3, 5, 3, 193, 3, 5, 3, 17, 3, 5, 3, 257, 3, 5, 3, 17, 3, 5, 3, 274177, 3, 5, 3

Offset

1,1

Links

Chai Wah Wu, Table of n, a(n) for n = 1..1786

Mathematica

FactorInteger[#][[1, 1]]&/@Select[(2^Range[70]+1), CompositeQ] (* Harvey P. Dale, Feb 17 2017 *)

Prog

(PARI) for(n=1, 1e2, if(!ispseudoprime(2^n+1), p=factor(2^n+1)[1, 1]; print1(p, ", ")))

Crossrefs

Cf. A000051, A023394, A242016.

Sequence in context: A138479 A202106 A136019 * A063714 A235649 A113965

Adjacent sequences: A242014 A242015 A242016 * A242018 A242019 A242020

Keyword

nonn,changed

Author

Felix Fröhlich, Aug 11 2014

Status

approved