OFFSET
1,1
COMMENTS
For primes, this definition has a clear distribution over the natural numbers (see A001917), whereas there is no such distribution for pseudoprimes. Among the first 10^6 pseudoprimes of this sequence, the smallest number is 9. Are there any numbers in this sequence which are smaller than 9?
There is no value smaller than 9 for all the pseudoprimes below 2^64. - Amiram Eldar, Nov 09 2023
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Jonas Kaiser, On the relationship between the Collatz conjecture and Mersenne prime numbers, arXiv:1608.00862 [math.GM], 2016.
FORMULA
MATHEMATICA
((# - 1)/MultiplicativeOrder[2, #]) & /@ Select[Range[10^5], CompositeQ[#] && PowerMod[2, # - 1, #] == 1 &] (* Amiram Eldar, Nov 09 2023 *)
PROG
(PARI) is_A001567(n)={Mod(2, n)^n==2 & !isprime(n) & n>1};
lista(nn) = {for (n=1, nn, if (is_A001567(n), print1((n-1)/znorder(Mod(2, n)), ", "); ); ); } \\ Michel Marcus, Feb 25 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonas Kaiser, Feb 24 2018
STATUS
approved