OFFSET
1,1
COMMENTS
Termed "integears" by Eric Angelini. See A267086 for the "extended version" where zero is allowed.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
E. Angelini, Integears, SeqFan list, Jan. 10, 2016.
MATHEMATICA
Select[Range[10, 200], Or[If[#2 == 0, False, Mod[#1, #2] == 0], If[#2 == 0, False, Mod[#2, #1] == 0]] & @@ {FromDigits@ Extract[#, Range[1, Length@ #, 2] /. x_Integer -> {x}], FromDigits@ Extract[#, Range[2, Length@#, 2] /. x_Integer -> {x}]} &@ IntegerDigits@ # &] (* Michael De Vlieger, Jan 21 2016 *)
PROG
(PARI) is(n, d=digits(n))={n=d*matrix(#d, 2, z, s, if(z==Mod(s, 2), 10^((#d-z)\2))); n[2] && (n[1]%n[2]==0 || n[2]%n[1]==0)}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and M. F. Hasler, Jan 10 2016
STATUS
approved