|
|
A337573
|
|
Numbers k such that Sum_{i=1..k} prime(i)*prime(k+i) is prime.
|
|
2
|
|
|
2, 6, 26, 34, 38, 60, 102, 112, 116, 122, 140, 230, 236, 270, 300, 330, 366, 386, 418, 426, 430, 486, 488, 508, 530, 534, 548, 556, 568, 576, 600, 674, 680, 688, 696, 710, 720, 764, 772, 798, 802, 804, 824, 852, 870, 884, 906, 982, 996, 1018, 1038, 1056, 1152, 1162, 1190, 1210, 1230, 1252, 1326
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
All terms are even.
Numbers k such that A337574(k) is prime.
|
|
LINKS
|
|
|
EXAMPLE
|
a(2)=6 is in the sequence because 2*17 + 3*19 + 5*23 + 7*29 + 11*31 + 13*37 = 1231 is prime.
|
|
MAPLE
|
P:= <seq(ithprime(i), i=1..6000)>:
select(t -> isprime(P[1..t]^%T . P[t+1..2*t]), 2*[$1..1500]);
|
|
MATHEMATICA
|
Select[Range[1326], PrimeQ@ Sum[Prime[i] Prime[# + i], {i, #}] &] (* Michael De Vlieger, Sep 01 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|