login
Numbers 2n for which A284950(n) is higher than for all smaller 2n.
0

%I #9 Apr 06 2017 21:12:36

%S 2,8,24,30,60,90,120,210,420,630,840,1050,1260,1680,1890,2310,2730,

%T 3780,3990,4200,4620,4830,5460,6930,8190,9240,10710,10920,11550,13650,

%U 13860,15960,16170,18480,20790,21840,23100,25410,27300,27720,30030,39270

%N Numbers 2n for which A284950(n) is higher than for all smaller 2n.

%e A284950 begins 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 2, 1, 0, 3, 0, 1, with values in 1st, 4th, 12th and 15th place that are larger than all previous values. So the sequence begins by doubling 1, 4, 12, 15 to get 2, 8, 24, 30.

%t k = 0;

%t Print [1, " ", 0];

%t For[i = 1, i < 1001, i++,

%t ee = 2*i;

%t a = 0;

%t For[j = 3, j < ee/2, j += 2,

%t If[PrimeQ[j] == True && PrimeQ[ee - j] == True,

%t If[PrimeQ[ee + j] == True, a += 1]]];

%t If[a > k, k = a; Print[ee, " ", a]]]

%K nonn

%O 1,1

%A _Neil Fernandez_, Apr 06 2017