A135178 a(n) = p^3 + p^2 where p = prime(n).
12, 36, 150, 392, 1452, 2366, 5202, 7220, 12696, 25230, 30752, 52022, 70602, 81356, 106032, 151686, 208860, 230702, 305252, 362952, 394346, 499280, 578676, 712890, 922082, 1040502, 1103336, 1236492, 1306910, 1455666, 2064512, 2265252
Offset: 1
Keywords
Examples
a(4)=392 because the 4th prime number is 7, 7^3=343, 7^2=49 and 343+49=392.
Links
- Ivan Panchenko, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[ p^3 + p^2: p in PrimesUpTo(200)]; // Vincenzo Librandi, Dec 14 2010
-
Maple
A135178:= n -> map(p -> p^(2)+p^(3), ithprime(n)): seq(A135178(n), n=1..32); # Jani Melik, Jan 25 2010
-
Mathematica
Table[p=Prime[n];p^2+p^3,{n,100}] (* Vladimir Joseph Stephan Orlovsky, Mar 21 2011*) #^3+#^2&/@Prime[Range[40]] (* Harvey P. Dale, May 07 2023 *)
Formula
Product_{n>=1} (1 - 1/a(n)) = A065465. - Amiram Eldar, Jan 23 2021
Sum 1/a(n) = A382562.