OFFSET
1,1
COMMENTS
The semiprime super-Poulet numbers (semiprimes in A050217) are a subsequence.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
aQ[n_] := Module[{f = FactorInteger[n]}, If[Length[f] == 2 && f[[1, 2]] == f[[2, 2]] == 1, p = f[[1, 1]]; q = f[[2, 1]], Return[False]]; PowerMod[2, p, q] == PowerMod[2, q, p]]; Select[Range[50000], aQ] (* Amiram Eldar, Oct 23 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jan 10 2011
STATUS
approved