|
|
A095735
|
|
Mersenne-like sequence factors of complex imaginary square type 2*Prime[m]*n-1.
|
|
0
|
|
|
4, 12, 36, 64, 72, 104, 144, 180, 216, 240, 276, 324, 396, 420, 468, 480, 504, 600, 648, 672
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) =if (2^n-1)/(2*n*Prime[m]-1)=Integer then n
|
|
MATHEMATICA
|
digits=700 a=Delete[Union[Flatten[Table[If[ IntegerQ[(2^n-1)/(2*n*Prime[m]-1)]==True, n, 0], {n, 1, digits}, {m, 1, digits}]]], 1]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|