OFFSET
1,3
MATHEMATICA
ndnQ[n_]:=Module[{n2=2^n}, Divisible[n2, IntegerLength[n2]]]; Select[Range[ 0, 28000], ndnQ] (* Harvey P. Dale, Apr 16 2013 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Ctibor O. Zizka, Mar 20 2009
EXTENSIONS
Extended by R. J. Mathar, Mar 26 2009
STATUS
approved