login
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
OFFSET
1,1
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
Sequence in context: A053595 A300553 A062858 * A020875 A307182 A374906
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Jul 06 2004
STATUS
approved