|
|
A217465
|
|
Composite integers k such that 2^k == 2 (mod k*(k+1)).
|
|
6
|
|
|
561, 1905, 4033, 4681, 5461, 6601, 8481, 11305, 13741, 13981, 16705, 23377, 30121, 31417, 41041, 49141, 52633, 57421, 88357, 88561, 101101, 107185, 121465, 130561, 162193, 196021, 196093, 204001, 208465, 219781, 266305, 276013, 278545, 282133, 285541, 314821, 334153, 341497, 390937, 399001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[400000], !PrimeQ[#]&&PowerMod[2, #, #(#+1)]==2&] (* Harvey P. Dale, Oct 12 2012 *)
|
|
PROG
|
(PARI) for(n=1, 10000, if((2^n)%(n*(n+1))==2&&isprime(n)==0, printf(n", ")))
(Python)
from sympy import isprime
A217465_list = [n for n in range(1, 10**6) if pow(2, n, n*(n+1)) == 2 and not isprime(n)] # Chai Wah Wu, Mar 25 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|