A181149 a(n) = prime(n)^3 + prime(n)^2 + prime(n).
14, 39, 155, 399, 1463, 2379, 5219, 7239, 12719, 25259, 30783, 52059, 70643, 81399, 106079, 151739, 208919, 230763, 305319, 363023, 394419, 499359, 578759, 712979, 922179, 1040603, 1103439, 1236599, 1307019
Offset: 1
Examples
a(4)=399 because the 4th prime is 7, 7^3 = 343, 7^2 = 49, and 343 + 49 + 7 = 399.
Links
- Ivan Panchenko, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p^3+p^2+p: p in PrimesUpTo(500)] // Vincenzo Librandi, Jan 26 2011
-
Maple
A181149 := n -> map (p -> p^(3)+p^(2)+p, ithprime(n)): seq (A181149(n), n=1..40);
-
Mathematica
#^3+#^2+#&/@Prime[Range[30]] (* Harvey P. Dale, Aug 13 2013 *)
-
PARI
a(n,p=prime(n))=p^3+p^2+p \\ Charles R Greathouse IV, Apr 23 2022
Comments