A096479 "Secondary twin primes": a(n) = A006450(A096477(n)).
3, 5, 11, 17, 41, 59, 179, 191, 431, 461, 599, 617, 1031, 1787, 2027, 2081, 2381, 2549, 3299, 4091, 4217, 4421, 4517, 4787, 5021, 5441, 5651, 8999, 9041, 9461, 10457, 13217, 13709, 13757, 14591, 14867, 15641, 16061, 16451, 16901, 17189, 17291
Offset: 1
Keywords
Examples
a(10) = 461 since prime(10) = 89 and prime(89 + 1) - prime(89) = 463 - 461 = 2.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Prime[Prime[Flatten[Position[Table[Prime[Prime[n]+1] -Prime[Prime[n]], {n, 1, 1000}], 2]]]]