OFFSET
1,1
MATHEMATICA
ss5nQ[n_]:=Module[{len=IntegerLength[n]}, MemberQ[Partition[ IntegerDigits[ 5^n], len, 1], IntegerDigits[n]]]; Select[Range[400], ss5nQ] (* Harvey P. Dale, Jan 06 2013 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved