OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..3000
EXAMPLE
155 belongs to this sequence as 1 divides 55 and 5 divides 15.
MATHEMATICA
eddnQ[n_]:=Module[{idn=IntegerDigits[n]}, And@@(Divisible[First[#], Last[#]]&/@Table[{FromDigits[Drop[idn, {i}]], idn[[i]]}, {i, Length[ idn]}])]; Select[Flatten[Table[FromDigits/@Tuples[{1, 3, 5, 7, 9}, d], {d, 5}], 1], eddnQ] (* Harvey P. Dale, Apr 23 2014 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Jun 26 2001
EXTENSIONS
More terms from Sascha Kurz, Mar 24 2002
Offset changed by Andrew Howroyd, Sep 17 2024
STATUS
approved