A181150 a(n) = prime(n)^3 + prime(n) + 1.
11, 31, 131, 351, 1343, 2211, 4931, 6879, 12191, 24419, 29823, 50691, 68963, 79551, 103871, 148931, 205439, 227043, 300831, 357983, 389091, 493119, 571871, 705059, 912771, 1030403, 1092831, 1225151, 1295139, 1443011, 2048511, 2248223, 2571491, 2685759, 3308099, 3443103, 3870051, 4330911, 4657631, 5177891, 5735519
Offset: 1
Examples
a(4)=351 because the 4th prime is 7, and 7^3 + 7 + 1 = 351.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A060800.
Programs
-
Magma
[p^3+p+1: p in PrimesUpTo(700)]; // Vincenzo Librandi, Jan 26 2011
-
Maple
A181150 := n -> map (p -> p^(3)+p+1, ithprime(n)): seq (A181150(n), n=1..41);
-
Mathematica
#^3+#+1&/@Prime[Range[50]] (* Harvey P. Dale, Jan 25 2011 *)