|
%I #11 May 31 2022 16:28:43
%S 3,6,8,15,22,31,33,38,45,57,60,63,66,69,76,80,82,102,123,126,132,140,
%T 141,142,148,150,154,156,158,159,160,168,170,171,183,186,192,204,207,
%U 208,213,215,225,232,245,246,250,255,258,261,267,272,276,285,294,303
%N Numbers k with property that 14*k is a sum of two consecutive primes.
%C Minimal difference d=p2-p1 is 2 while d may be arbitrarily large.
%C For n<10^7 largest d is for n=2435971: 14*n=34103594, p1=17051707, p2=17051887, d=p2-p1=180.
%C Numbers k such that 7*k is in A145025. - _Robert Israel_, Jun 17 2019
%H Robert Israel, <a href="/A165298/b165298.txt">Table of n, a(n) for n = 1..10000</a>
%e 3*14=42=19+23,d=4; 6*14=84=41+43,d=2; 8*14=112=53+59,d=6.
%p filter:= proc(n) local t;
%p nextprime(7*n)+prevprime(7*n)=14*n;
%p end proc:
%p select(filter, [$1..1000]); # _Robert Israel_, Jun 17 2019
%Y Cf. A145025.
%K nonn
%O 1,1
%A _Zak Seidov_, Sep 14 2009
|
