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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A179768 Semiprimes of form p*q with p < q, such that 2^p - 1 == 0 (mod q). 0
6, 21, 155, 253, 889, 979, 1081, 6757, 8251, 13861, 18533, 31987, 32047, 34453, 60581, 64261, 73153, 106483, 110497, 114481, 126253, 212111, 212273, 256507, 258121, 325967, 337133, 351541, 371953, 383183, 392941, 417917, 457207, 482653, 548047, 869221, 933661, 946051 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Number of terms < 10^k: 1, 2, 6, 9, 17, 38, 91, 222, ..., .

LINKS

Table of n, a(n) for n=1..38.

EXAMPLE

6 is a term because 6=2*3 and 2^2-1 (mod 3)=0;

21 is a term because 21=3*7 and 2^3-1 (mod 7)=0;

155 is a term because 155=5*31 and 2^5-1 (mod 31)=0;

253 is a term because 253=11*23 and 2^11-1 (mod 23)=0;

889 is a term because 889=7*127 and 2^7-1 (mod 127)=0;

979 is a term because 979=11*89 and 2^11-1 (mod 89)=0; etc.

MATHEMATICA

fQ[n_] := Block[{fi = FactorInteger@ n}, Plus @@ Last /@ fi == 2 && PowerMod[2, fi[[1, 1]], fi[[2, 1]]] == 1]; Select[ Range@ 1000000, fQ] (* Robert G. Wilson v, Jan 10 2011 *)

CROSSREFS

Cf. A000079, A001358.

Sequence in context: A054366 A304264 A210443 * A131960 A244299 A143049

Adjacent sequences:  A179765 A179766 A179767 * A179769 A179770 A179771

KEYWORD

nonn

AUTHOR

Juri-Stepan Gerasimov, Jan 10 2011

EXTENSIONS

Corrected, extended & edited by Robert G. Wilson v, Jan 10 2011

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 August 17 11:06 EDT 2019. Contains 326057 sequences. (Running on oeis4.)