login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A177415 Smallest prime divisor of the n-th base-2 pseudoprime. 2
11, 3, 3, 5, 19, 7, 3, 23, 5, 37, 7, 29, 37, 17, 3, 31, 43, 7, 73, 53, 3, 7, 31, 5, 5, 3, 7, 59, 11, 43, 23, 7, 5, 3, 97, 71, 3, 97, 3, 13, 7, 17, 89, 73, 103, 3, 5, 89, 5, 7, 5, 127, 13, 157, 151, 7, 3, 7, 101, 89, 3, 7, 59, 97, 11, 3, 5, 11, 61, 167, 5, 53, 3, 149, 11, 151 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000

FORMULA

a(n) = A020639(A001567(n)).

MATHEMATICA

lpf[n_]:=FactorInteger[n][[1, 1]]; lpf /@ Select[Range[1, 10^4, 2], CompositeQ[#] && PowerMod[2, #-1, # ] == 1 &] (* Amiram Eldar, Sep 08 2019 *)

PROG

(PARI) terms(n) = my(i=0); forcomposite(c=1, , if(i>=n, break, if(Mod(2, c)^(c-1)==1, print1(factor(c)[1, 1], ", "); i++)))

/* Print initial 80 terms as follows */

terms(80) \\ Felix Fröhlich, Sep 08 2019

CROSSREFS

Cf. A001567, A020639.

Sequence in context: A010188 A309389 A110089 * A208091 A070695 A070720

Adjacent sequences:  A177412 A177413 A177414 * A177416 A177417 A177418

KEYWORD

nonn

AUTHOR

Juri-Stepan Gerasimov, Dec 10 2010

EXTENSIONS

Corrected by D. S. McNeil, Dec 11 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 17 08:36 EDT 2019. Contains 328107 sequences. (Running on oeis4.)