|
Search: id:A075455
|
|
|
| A075455 |
|
Prime averages of two successive perfect powers (pp(n) + pp(n+1))/2. |
|
+0
2
|
|
| 2203, 77983, 90863, 185477, 371087, 388573, 613607, 912349, 1293899, 1600919, 2146457, 30661333, 35608189, 48823147
(list; graph; listen)
|
|
|
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: A044884 A019297 A044989 this_sequence A125015 A098192 A004931
Adjacent sequences: A075452 A075453 A075454 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
