OFFSET

1,1

COMMENTS

REFERENCES

Roman Fedorov, Alexei Belov, Alexander Kovaldzhi, Ivan Yashchenko, Moscow Mathematical Olympiads, 2000-2005,Problem 3, Level D, 2004, MSRI, 2011, p. 21 and 130/131

EXAMPLE

a(7) = 147 because 147 = 7*21 and if we strike out "7", 14 is also divisible by 7, and there is no integer < 147 with that property.

MATHEMATICA

del[n_] := Block[{m = 10^IntegerExponent[n, 10], d}, d = IntegerDigits[n/m]; Table[ FromDigits[Delete[d, k]] m, {k, Length@ d}]]; a[n_] := Block[{k = n, v}, While[! AnyTrue[del[k], # > n && Mod[#, n] == 0 &], k += n]; k]; Array[a, 50] (* Giovanni Resta, Feb 28 2020 *)

CROSSREFS

KEYWORD

nonn,base

AUTHOR

Bernard Schott, Feb 28 2020

EXTENSIONS

More terms from Giovanni Resta, Feb 28 2020

Name improved by Rémy Sigrist and Jon E. Schoenfield, Feb 28 2020

STATUS

approved