A122040 Numbers which are equal to the arithmetic mean of six successive primes.

12, 15, 22, 26, 30, 34, 38, 42, 55, 64, 77, 82, 87, 92, 101, 105, 110, 115, 126, 139, 144, 160, 165, 170, 190, 227, 232, 274, 279, 292, 298, 304, 312, 326, 339, 346, 352, 358, 369, 375, 387, 393, 406, 413, 419, 431, 436, 442, 447, 452, 469, 481, 516, 524, 533

Offset: 1

Author

Giovanni Teofilatto, Sep 14 2006

Keywords

• easy
• nonn

Examples

			a(1) = 12 because (5+7+11+13+17+19)/6 = 12;
a(2) = 15 because (7+11+13+17+19+23)/6 = 15.
		

Crossrefs

Cf. A122531.

Programs

Mathematica

Select[Table[Sum[Prime[k], {k, n, n + 5}]/6, {n, 100}], IntegerQ] (* Ray Chandler, Sep 25 2006 *)
Select[Mean/@Partition[Prime[Range[200]],6,1],IntegerQ]  (* Harvey P. Dale, Apr 01 2011 *)

Extensions

Extended by Ray Chandler, Sep 25 2006