OFFSET
1,1
COMMENTS
REFERENCES
H. Ibstedt, Solution to Problem 2623, "Exclusionary Powers", pp. 346-9, Journal of Recreational Mathematics, Vol. 32 No.4 2003-4 Baywood NY.
MATHEMATICA
ebQ[n_]:=Max[DigitCount[n]]==1&&Intersection[IntegerDigits[n], IntegerDigits[ n^4]]=={}; Select[Range[3000], ebQ] (* Harvey P. Dale, Aug 21 2013 *)
CROSSREFS
KEYWORD
base,nonn,fini
AUTHOR
Lekraj Beedassy, Oct 26 2005
STATUS
approved