A182200 a(n) = prime(n)^2-3.
1, 6, 22, 46, 118, 166, 286, 358, 526, 838, 958, 1366, 1678, 1846, 2206, 2806, 3478, 3718, 4486, 5038, 5326, 6238, 6886, 7918, 9406, 10198, 10606, 11446, 11878, 12766, 16126, 17158, 18766, 19318, 22198, 22798, 24646, 26566, 27886, 29926, 32038, 32758, 36478
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[NthPrime(n)^2-3: n in [1..43]];
-
Maple
A182200:=n->ithprime(n)^2-3; seq(A182200(k),k=1..50); # Wesley Ivan Hurt, Oct 11 2013
-
Mathematica
Table[Prime[n]^2 - 3, {n, 43}]