|
|
A178997
|
|
Super-Poulet numbers having more than two different prime factors.
|
|
7
|
|
|
294409, 1398101, 1549411, 1840357, 12599233, 13421773, 15162941, 15732721, 28717483, 29593159, 61377109, 66384121, 67763803, 74658629, 78526729, 90341197, 96916279, 109322501
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This is a subsequence of the super-Poulet numbers, A050217. Of the first 1000 super-Poulet numbers, only 18 have more than two prime factors.
The smallest Super-Poulet number with three prime factors not all distinct is 5654273717 = 4733*1093^2, which is not in this sequence. - Emmanuel Vantieghem, Sep 25 2018
|
|
LINKS
|
|
|
MATHEMATICA
|
okQ[n_] := CompositeQ[n] && PrimeNu[n] > 2 && AllTrue[Divisors[n], PowerMod[2, #, n] == 2&];
Reap[For[n = 1, n < 10^8, n = n+2, If[okQ[n], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Sep 11 2018 *) (* Corrected with PrimeNu instead of PrimeOmega by Emmanuel Vantieghem, Sep 24 2018 *)
|
|
PROG
|
(PARI) is(n)=my(f=factor(n)); if(#f~ < 3, return(0)); fordiv(f, d, if(Mod(2, d)^d!=2, return(0))); 1 \\ Charles R Greathouse IV, Sep 01 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|