A178398 a(n) = p(p+1)^2, where p is the n-th prime.
18, 48, 180, 448, 1584, 2548, 5508, 7600, 13248, 26100, 31744, 53428, 72324, 83248, 108288, 154548, 212400, 234484, 309808, 368064, 399748, 505600, 585648, 720900, 931588, 1050804, 1114048, 1248048, 1318900, 1468548, 2080768, 2282544, 2609028, 2724400, 3352500, 3488704, 3919348, 4384048, 4713408, 5237748, 5799600, 5995444, 7041024, 7263748, 7723188, 7960000, 9483184, 11189248, 11800368, 12114100
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Table[p (p+1)^2,{p,Prime[Range[50]]}] (* Harvey P. Dale, Aug 12 2025 *) -
PARI
a(n) = prime(n)*(prime(n)+1)^2 \\ Michel Marcus, Jun 24 2013
Formula
a(n) = A000040(n)*A110833(n) = A000040(n)*A008864(n)^2 = A008864(n)*A036690(n). - Michel Marcus, Jun 24 2013
Sum 1/a(n) = A382567. - R. J. Mathar, Mar 31 2025
Extensions
Edited by N. J. A. Sloane, Dec 21 2010