|
Search: id:A136335
|
|
|
| A136335 |
|
Indices of the primes p for which the number of representations of p as the sum of a perfect prime power (A025475: q^e with e>1) and an integer k which is less than q exceeds one. |
|
+0
1
|
|
| 10, 31, 14774, 14775, 65686, 110128, 110129, 110130, 110131, 110132, 110133, 110134, 110135, 110136, 110137, 165952, 165953, 165954, 165955, 165956, 165957, 165958, 304841, 304842, 304843, 304844, 304845, 304846, 304847
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Where A138363 exceeds 1.
|
|
EXAMPLE
|
A000040(10)=29; A138363(10) = #{4+5^2, 2+3^3} = 2.
|
|
MATHEMATICA
|
f[n_] := Block[{c = 0, e, j, k = 1, p = Prime@n, q}, j = 1 + PrimePi@ Sqrt@ p; While[k < j, q = Prime@k; If[p < q + q^Floor@ Log[q, p], c++ ]; k++ ]; c]; lst = {}; Do[ If[f@n > 1, AppendTo[lst, n]; Print[Prime@n]], {n, 25*10^5}]
|
|
CROSSREFS
|
Cf. A138363, A074267.
Adjacent sequences: A136332 A136333 A136334 this_sequence A136336 A136337 A136338
Sequence in context: A042849 A097236 A061485 this_sequence A008422 A063926 A024933
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com) & Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 23 2008
|
|
|
Search completed in 0.002 seconds
|
