A061817 - OEIS (original) (raw)

9, 99, 117, 135, 153, 171, 315, 333, 351, 513, 531, 711, 999, 1179, 1197, 1359, 1377, 1395, 1539, 1557, 1575, 1593, 1719, 1737, 1755, 1773, 1791, 1917, 1935, 1953, 1971, 3159, 3177, 3195, 3339, 3357, 3375, 3393, 3519, 3537, 3555, 3573, 3591, 3717, 3735

MATHEMATICA

Select[9Range[500], And@@OddQ[IntegerDigits[#]]&] (* Harvey P. Dale, May 30 2013 *)

PROG

(PARI) is(n)=n%9==0 && #setintersect(Set(digits(n)), [0, 2, 4, 6, 8])==0 \\ Charles R Greathouse IV, Feb 15 2017

EXTENSIONS

Corrected and extended by Larry Reeves (larryr(AT)acm.org), May 30 2001