|
| |
|
|
A075455
|
|
Prime averages of two successive perfect powers (pp(n) + pp(n+1))/2.
|
|
1
| |
|
|
2203, 77983, 90863, 185477, 371087, 388573, 613607, 912349, 1293899, 1600919, 2146457, 30661333, 35608189, 48823147
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 2203 = (pp(61)+pp(62))/2=(2197+2209)/2.
|
|
|
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 (tanyakh(AT)yahoo.com), Sep 15 2007
|
|
|
CROSSREFS
| Sequence in context: A019297 A044989 A202894 * A125015 A175915 A098192
Adjacent sequences: A075452 A075453 A075454 * A075456 A075457 A075458
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Oct 11 2002
|
|
|
EXTENSIONS
| More terms from Tanya Khovanova (tanyakh(AT)yahoo.com), Sep 15 2007
|
| |
|
|
