A083558 p(p^2-p+1) as p runs through the primes.
6, 21, 105, 301, 1221, 2041, 4641, 6517, 11661, 23577, 28861, 49321, 67281, 77701, 101661, 146121, 201957, 223321, 296341, 352941, 383761, 486877, 564981, 697137, 903361, 1020201, 1082221, 1213701, 1283257, 1430241, 2032381, 2231061, 2552721, 2666437
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p*(p^2-p+1): p in PrimesUpTo(150)]; // Vincenzo Librandi, Jan 10 2017
-
Mathematica
Table[p(p^2-p+1),{p,Prime[Range[40]]}] (* Harvey P. Dale, Jan 09 2017 *)
Comments