|
%I #28 Nov 30 2016 06:02:45
%S 2,6,12,18,24,42,48,8,30,10,60,66,36,14,20,78,22,96,108,28,84,68,102,
%T 126,90,120,72,54,114,150,26,132,144,162,16,34,186,56,50,168,156,228,
%U 204,222,40,46,174,192,210,38,180,138,80,74,44,252,76,336,240,216,264,306,258,300,246,52
%N a(n) = the least positive number m not yet used such that prime(n) + m and prime(n+1) + m are prime.
%C Apparently the only absent positive even integer is 4.
%H Zak Seidov, <a href="/A276829/b276829.txt">Table of n, a(n) for n = 2..1001</a>
%t s={};p=3;q=5;Do[m=2;While[MemberQ[s,m]||!PrimeQ[m+p]||!PrimeQ[m+q],m=m+2]; AppendTo[s,m];p=q;q=NextPrime[q],{100}];s
%Y Cf. A247097.
%K nonn
%O 2,1
%A _Zak Seidov_, Nov 10 2016
|
