OFFSET
1,1
COMMENTS
'Multiple' means >1 and the concatenation is left-to-right only.
LINKS
Paul Tek, Table of n, a(n) for n = 1..10000
MATHEMATICA
Module[{nn=99, cc, t}, cc=Table[FromDigits[Flatten[Join[ IntegerDigits/@ {n, n+1}]]], {n, nn}]; Table[t=Select[cc, Divisible[#, x]&]; If[t[[1]]>x, t[[1]], t[[2]]], {x, 50}]] (* Harvey P. Dale, Sep 17 2020 *)
PROG
(Python)
def a(n):
k, concat = 1, 12
while concat <= n or concat%n:
k += 1
concat = int(str(k)+str(k+1))
return concat
print([a(n) for n in range(1, 50)]) # Michael S. Branicky, Dec 12 2021
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 07 2005
EXTENSIONS
Corrected and extended by Hans Havermann, Nov 08 2005
Definition clarified by Harvey P. Dale, Sep 17 2020
STATUS
approved