OFFSET
1,2
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
Rémy Sigrist, PARI program for A278649
MATHEMATICA
a = {1}; Do[k = 2; While[Or[Nand[AnyTrue[#2, Divisible[a[[n - 1]], #] &],
AnyTrue[#1, Divisible[k, #] &]], MemberQ[a, k]] & @@ Map[DeleteCases[ IntegerDigits@ #, 0] &, {a[[n - 1]], k}], k++]; AppendTo[a, k], {n, 2, 66}]; a (* Michael De Vlieger, Nov 25 2016, Version 10 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Nov 25 2016
STATUS
approved