|
Search: id:A095735
|
|
|
| A095735 |
|
Mersenne-like sequence factors of complex imaginary square type 2*Prime[m]*n-1. |
|
+0
1
|
|
| 4, 12, 36, 64, 72, 104, 144, 180, 216, 240, 276, 324, 396, 420, 468, 480, 504, 600, 648, 672
(list; graph; listen)
|
|
|
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: A149318 A053595 A062858 this_sequence A020875 A063810 A002842
Adjacent sequences: A095732 A095733 A095734 this_sequence A095736 A095737 A095738
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 06 2004
|
|
|
Search completed in 0.002 seconds
|
