OFFSET
1,2
MATHEMATICA
cdnQ[n_]:=AllTrue[Differences[IntegerDigits[n, 12]], Abs[#]>3&]; Select[ Range[ 130], cdnQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 06 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved