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

2, 8, 24, 30, 60, 90, 120, 210, 420, 630, 840, 1050, 1260, 1680, 1890, 2310, 2730, 3780, 3990, 4200, 4620, 4830, 5460, 6930, 8190, 9240, 10710, 10920, 11550, 13650, 13860, 15960, 16170, 18480, 20790, 21840, 23100, 25410, 27300, 27720, 30030, 39270

Offset: 1

Author

Neil Fernandez, Apr 06 2017

Keywords

• nonn

Examples

			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.
		

Programs

Mathematica

k = 0;
Print [1, " ", 0];
For[i = 1, i < 1001, i++,
ee = 2*i;
a = 0;
For[j = 3, j < ee/2, j += 2,
  If[PrimeQ[j] == True && PrimeQ[ee - j] == True,
   If[PrimeQ[ee + j] == True, a += 1]]];
If[a > k, k = a; Print[ee, " ", a]]]