OFFSET
1,2
MATHEMATICA
Select[Range[150000], Divisible[8^#+6^#, #]&] (* Harvey P. Dale, Jun 13 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved