A075455 Prime averages of two successive perfect powers (A001597(k) + A001597(k+1))/2.

2203, 77983, 90863, 185477, 371087, 388573, 613607, 912349, 1293899, 1600919, 2146457, 30661333, 35608189, 48823147, 81190429, 105823093, 122753857, 204341747, 338602837, 368601707, 374788121, 426958673, 498675409, 586371239, 656232799, 665360321, 674509487, 693132527

Offset: 1

Author

Zak Seidov, Oct 11 2002

Keywords

• easy
• nonn

Examples

			2203 = (A001597(61)+A001597(62))/2 = (2197+2209)/2.
		

Crossrefs

Cf. A001597.

Programs

Mathematica

a = Select[Range[2, 50000000], GCD @@ (Transpose[FactorInteger[ # ]][[2]]) > 1 &]; sizea = Length[a]; (a[[Select[Range[sizea - 1], PrimeQ[(a[[ # ]] + a[[ # + 1]])/2] &]]] + a[[Select[Range[sizea - 1], PrimeQ[(a[[ # ]] + a[[ # + 1]])/2] &] + 1]])/2 (* Tanya Khovanova, Sep 15 2007 *)

Extensions

More terms from Tanya Khovanova, Sep 15 2007

More terms from Amiram Eldar, Feb 18 2022