OFFSET
1,2
MATHEMATICA
Select[Range[30000], Divisible[5^#+4^#, #]&] (* Harvey P. Dale, Nov 17 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved