|
|
A131697
|
|
Prime averages of two successive perfect prime powers.
|
|
1
|
|
|
101, 577, 677, 2203, 15877, 22501, 25609, 32401, 42061, 57601, 72901, 181501, 228211, 324901, 378229, 394393, 462409, 695581, 804709, 1664101, 1742401, 1971241, 2873029, 3062509, 3186229, 4137181, 4305661, 4347229, 4804889, 5336101, 6200269, 6502501, 7177693, 7209229
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
101 is the average of 81 and 121.
|
|
MATHEMATICA
|
a = Select[ Range[2, 10000000], ! PrimeQ[ # ] && Length[FactorInteger[ # ]] == 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
|
|
CROSSREFS
|
Cf. A000961, A075455 (Prime averages of two successive perfect powers).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|