OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
S. P. Hurd and J. S. McCranie, Integers that are Sums of Uniform Powers of all their Prime Factors: the sequence A068916, J. of Int. Seq., vol 22 (2019), article 19.3.4.
EXAMPLE
50650 = 37^3-3 = 50651^1-1.
PROG
(PARI) is(n)=my(p); sum(e=1, logint(n, 2)+1, ispower(n+e, e, &p)&&isprime(p))>1 \\ Charles R Greathouse IV, Feb 08 2016
(PARI) list(lim)=my(v=List([2]), q, n); for(e=3, logint(1+lim\=1, 2), forprime(p=2, sqrtnint(lim+e, e), if(sum(i=1, e-1, n=p^e-e; ispower(n+i, i, &q) && isprime(q)), listput(v, n)))); Set(v) \\ Charles R Greathouse IV, Feb 08 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Jud McCranie, Feb 07 2016
STATUS
approved