A095735 Mersenne-like sequence factors of complex imaginary square type 2*Prime[m]*n-1.

4, 12, 36, 64, 72, 104, 144, 180, 216, 240, 276, 324, 396, 420, 468, 480, 504, 600, 648, 672

Offset

1,1

Links

Table of n, a(n) for n=1..20.

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

Adjacent sequences: A095732 A095733 A095734 * A095736 A095737 A095738

Keyword

nonn,uned

Author

Roger L. Bagula, Jul 06 2004

Status

approved