|
Search: id:A108110
|
|
|
| A108110 |
|
Numbers n such that prime[k]*n+prime[k+1], for k=1,...,6 all are primes. |
|
+0
1
|
|
| 284, 3074, 3494, 21698, 32138, 43874, 51794, 60674, 75494, 407348, 437438, 459794, 571478, 660878, 667358, 705464, 716624, 740774, 811028, 820154, 910664
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
284 is OK because 2*284+3, 3*284+5, 5*284+7, 7*284+11, 11*284+13 and 13*284+17 all are primes.
|
|
MATHEMATICA
|
s={}; Do[If[Union[PrimeQ/@Table[Prime[k]*n+Prime[k+1], {k, 6}]]=={True}, s=Append[s, n]], {n, 2, 1000000, 2}]; s
|
|
CROSSREFS
|
Sequence in context: A090789 A002046 A143191 this_sequence A049024 A093228 A043415
Adjacent sequences: A108107 A108108 A108109 this_sequence A108111 A108112 A108113
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Jun 03 2005
|
|
|
Search completed in 0.002 seconds
|
