OFFSET
1,1
COMMENTS
In contrast to A249766, leading zeros are not allowed.
Numbers of the form a*10^m + a*b where m >= 1, 10^(m-1) <= a*b < 10^m and b divides 10^m.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(5) = 24 is a term because 24 is the concatenation of 2 and 4, which are both divisors of 24.
MAPLE
N:= 10^4: # for terms <= N
R:= {}:
for a from 1 to floor(sqrt(N)) do
for m from 1 to 1+ilog10(N) do
for b in NumberTheory:-Divisors(10^m) do
if a*b >= 10^(m-1) and a*b < 10^m and a*(10^m+b) <= N then
R:= R union {a*(10^m+b)}
fi
od od od:
sort(convert(R, list));
MATHEMATICA
f[{a_, b_}]:=FromDigits[Flatten[IntegerDigits/@{a, b}]]; q[k_]:=ContainsAny[f/@Permutations[Flatten[Table[Drop[Divisors[k], -1], 2]], {2}], {k}]; Select[Range[1144], q] (* James C. McMahon, Apr 17 2026 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Apr 09 2026
STATUS
approved
