A166620 Positions of primes in A105720.
1, 4, 16, 18, 22, 36, 40, 44, 52, 72, 110, 138, 144, 154, 160, 162, 166, 176, 178, 212, 224, 246, 252, 272, 282, 286, 292, 298, 306, 326, 330, 374, 386, 420, 428, 442, 446, 468, 472, 478, 482, 488, 498, 512, 518, 524, 532, 534, 550, 556, 564, 586, 602, 628
Offset: 1
Keywords
Programs
-
Mathematica
Flatten[Position[Table[Total[Prime[Range[n,2n]]],{n,700}],?PrimeQ]] (* _Harvey P. Dale, Jun 10 2014 *)