A230285 a(n) = n*prime(prime(n)) - prime(n).
1, 7, 28, 61, 144, 233, 396, 517, 724, 1061, 1366, 1847, 2286, 2631, 3118, 3803, 4650, 5033, 6222, 6989, 7634, 8743, 9830, 10975, 12628, 14121, 15098, 16329, 17262, 18397, 21852, 23517, 25372, 26959, 29916, 31421, 33846, 36583, 38482, 41067, 43404, 45473
Offset: 1
Keywords
Links
- James Spahlinger, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Table[n*Prime[Prime[n]] - Prime[n], {n, 1, 100}]
-
PARI
a(n) = n*prime(prime(n)) - prime(n) \\ Charles R Greathouse IV, Oct 15 2013
Comments