OFFSET
1,1
COMMENTS
Computed by Emeric Deutsch.
EXAMPLE
For 5^5 = 625, 6 + 2 + 5 = 13, which is a prime.
MAPLE
sd := proc (n) options operator, arrow: add(convert(n, base, 10)[j], j = 1 .. nops(convert(n, base, 10))) end proc:
a := proc (n) if isprime(sd(ithprime(n)^ithprime(n))) = true then ithprime(n) else end if end proc:
seq(a(n), n = 1 .. 90); # Emeric Deutsch, Jul 19 2007
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
J. M. Bergot, Jul 17 2007
STATUS
approved