OFFSET
1,3
COMMENTS
Numbers that contain non-single or nonisolated digits only (see the first seven values of A167707 for the digits that are not 2, 4, or 6).
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Select[Select[Range[0, 4500], FreeQ[IntegerDigits@#, 2] &], FreeQ[IntegerDigits@#, 4] &], FreeQ[IntegerDigits@#, 6] &] (* G. C. Greubel, Jul 24 2016 *)
PROG
(Magma) [n: n in [0..200] | IsEmpty(Set([2, 4, 6]) meet Set(Intseq(n)))]; // Bruno Berselli, Jul 25 2016
CROSSREFS
KEYWORD
nonn,base,easy,less
AUTHOR
Juri-Stepan Gerasimov, Nov 27 2009
EXTENSIONS
Corrected (114 removed) by R. J. Mathar, Jun 04 2010
STATUS
approved