OFFSET
1,1
COMMENTS
Previous name: Mersenne-like sequence factors of complex real square type 2*Prime[m]^2-n^2-1.
Includes all the primes, since for a prime q, 2^p-1 is divisible by abs(p^2-k^2-1) = 1 when p = q. - Amiram Eldar, Jun 07 2025
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..84
MATHEMATICA
q[n_] := AnyTrue[Divisors[2^n-1], PrimeQ[Sqrt[Abs[# - n^2 - 1]]] &]; Select[Range[150], q] (* Amiram Eldar, Jun 07 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jul 06 2004
EXTENSIONS
New name from Amiram Eldar, Jun 07 2025
STATUS
approved
