OFFSET
1,1
EXAMPLE
a(3)=271 because 1000-271 = 729 = 9^3.
MATHEMATICA
Select[Prime[Range[710000]], IntegerQ[Surd[10^IntegerLength[#]-#, 3]]&] (* Harvey P. Dale, Jul 14 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jason Earls, May 31 2003
EXTENSIONS
More terms from Harvey P. Dale, Jul 14 2024
STATUS
approved