This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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
 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; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Where A138363 exceeds 1. LINKS 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. Sequence in context: A097236 A280202 A061485 * A008422 A063926 A239834 Adjacent sequences:  A136332 A136333 A136334 * A136336 A136337 A136338 KEYWORD nonn AUTHOR Reinhard Zumkeller & Robert G. Wilson v, Mar 23 2008 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 21 16:25 EDT 2019. Contains 328302 sequences. (Running on oeis4.)