OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
341 is a pseudoprime to base 2 while 340 = 2^2*5*17 and 342 = 2*3^2*19 each have four primes dividing them.
MATHEMATICA
PrimeFactorExponentsAdded[n_] := Plus @@ Flatten[ Table[ # [[2]], {1}] & /@ FactorInteger[n]]; Select[ Range[9224390], !PrimeQ[ # ] && PowerMod[2, # - 1, # ] == 1 && PrimeFactorExponentsAdded[ # - 1] == PrimeFactorExponentsAdded[ # + 1] & ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 05 2003
EXTENSIONS
More terms from Robert G. Wilson v, Aug 13 2003
STATUS
approved