|
Search: id:A082434
|
|
|
| A082434 |
|
Let q_n be least prime > x_n := 1 + 2*n!; sequence gives a(n) = q_n-x_n+1. |
|
+0
1
|
|
| 3, 3, 5, 5, 11, 7, 11, 11, 29, 29, 13, 71, 29, 19, 19, 37, 23, 23, 41, 29, 53, 53, 89, 29, 41, 41, 59, 227, 79, 41, 101, 73, 61, 41, 37, 59, 67, 127, 67, 223, 71, 43, 53, 71, 71, 113, 239, 71, 313, 157
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
a(n)=NextPrime[2*n!+1]-2*n!
|
|
EXAMPLE
|
a(4) = 5 because 2*4!+1=49, the next prime is 51 and the difference between 53 and 48 is 13.
|
|
MATHEMATICA
|
Do[If[PrimeQ[NextPrime[2*n!+1]-2*n! ], Print[n]], {n, 100}]
|
|
CROSSREFS
|
Sequence in context: A049644 A050822 A099536 this_sequence A078752 A124115 A124114
Adjacent sequences: A082431 A082432 A082433 this_sequence A082435 A082436 A082437
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
Maciej Ulas (maciejulas(AT)poczta.onet.pl), Apr 25 2003
|
|
|
Search completed in 0.002 seconds
|
