|
Search: id:A095736
|
|
|
| A095736 |
|
Mersenne-like sequence factors of complex imaginary square type 2*Prime[m]*n-1. |
|
+0 1
|
|
| 1, 2, 6, 8, 10, 15, 16, 22, 23, 26, 32, 39, 82, 163, 193, 206, 219, 316, 360, 377, 465, 662
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
a(n) =if (2^n-1)/(2*n*Prime[m]-1)=Integer then m
|
|
MATHEMATICA
|
digits=700 a=Delete[Union[Flatten[Table[If[ IntegerQ[(2^n-1)/(2*n*Prime[m]-1)]==True, m, 0], {n, 1, digits}, {m, 1, digits}]]], 1]
|
|
CROSSREFS
|
Adjacent sequences: A095733 A095734 A095735 this_sequence A095737 A095738 A095739
Sequence in context: A141105 A047395 A036554 this_sequence A084909 A038619 A118257
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 06 2004
|
|
|
Search completed in 0.002 seconds
|