A135554 Numbers n such that n is the fourth power of an integer and the sum of digits of n is prime.

16, 256, 625, 2401, 4096, 83521, 160000, 279841, 456976, 1048576, 1500625, 2560000, 2825761, 3748096, 4477456, 4879681, 5764801, 6250000, 7890481, 9834496, 11316496, 14776336, 16777216, 20151121, 21381376, 24010000, 28398241

Offset

1,1

Comments

Intersection of A000583 and A028834. - Michel Marcus, Oct 19 2016

Links

G. C. Greubel, Table of n, a(n) for n = 1..1090

Example

a(1)=16 because 2^4=16 and 1+6=7, prime.

Mathematica

Select[Range[80]^4, PrimeQ[Total[IntegerDigits[#]]]&] (* Harvey P. Dale, Dec. 13, 2010 *)

Prog

(PARI) isok(n) = ispower(n, 4) && isprime(sumdigits(n)); \\ Michel Marcus, Oct 19 2016

Crossrefs

Cf. A000583, A028834, A135555.

Sequence in context: A208071 A206984 A207842 * A208376 A208066 A207931

Adjacent sequences: A135551 A135552 A135553 * A135555 A135556 A135557

Keyword

easy,nonn,base

Author

Enoch Haga, Nov 25 2007

Extensions

Description corrected by Harvey P. Dale, Dec 13 2010

Status

approved