A117961 Hexagonal numbers with prime indices.
6, 15, 45, 91, 231, 325, 561, 703, 1035, 1653, 1891, 2701, 3321, 3655, 4371, 5565, 6903, 7381, 8911, 10011, 10585, 12403, 13695, 15753, 18721, 20301, 21115, 22791, 23653, 25425, 32131, 34191, 37401, 38503, 44253, 45451, 49141, 52975, 55611
Offset: 1
Programs
-
Mathematica
With[{hex=Table[n(2n-1),{n,250}]},Flatten[Table[Take[hex,{Prime[n]}],{n, 40}]]] (* Harvey P. Dale, Dec 04 2011 *)
Comments