[go: up one dir, main page]

login
A095648
Indices of the primes in A095672: A095672(n) = prime(a(n)).
7
11, 18, 21, 36, 58, 62, 68, 79, 84, 94, 101, 105, 106, 110, 132, 135, 146, 156, 174, 175, 179, 197, 202, 210, 216, 223, 231, 242, 248, 257, 258, 304, 306, 309, 321, 334, 338, 347, 354, 374, 386, 396, 397, 406, 436, 437, 456, 464, 489, 491, 496, 497, 503, 517
OFFSET
1,1
MATHEMATICA
m = 1; 1 + Select[ Range[520], Prime[ # + 2] - 2*Prime[ # + 1] + Prime[ # ] - 4*m == 0 &] (* Robert G. Wilson v, Jul 14 2004 *)
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jul 02 2004
EXTENSIONS
Edited by Robert G. Wilson v, Jul 14 2004
Edited by N. J. A. Sloane, Nov 07 2005
STATUS
approved