OFFSET
1,5
EXAMPLE
a(16) = 19 as 16 divides 1920.
MATHEMATICA
With[{cnct=Table[FromDigits[Flatten[IntegerDigits/@{n, n+1}]], {n, 100}]}, Table[ Position[cnct, _?(Divisible[#, k]&), 1, 1], {k, 100}]]//Flatten (* Harvey P. Dale, Apr 11 2020 *)
PROG
(PARI) for(n=1, 100, k=1:while((k*(10^floor(log(k+1)/log(10)+1))+k+1)%n>0, k=k+1):print1(k", "))
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 01 2002
EXTENSIONS
Corrected and extended by Ralf Stephan, Mar 23 2003
STATUS
approved