|
%I #6 Feb 15 2017 00:41:56
%S 9,99,117,135,153,171,315,333,351,513,531,711,999,1179,1197,1359,1377,
%T 1395,1539,1557,1575,1593,1719,1737,1755,1773,1791,1917,1935,1953,
%U 1971,3159,3177,3195,3339,3357,3375,3393,3519,3537,3555,3573,3591,3717,3735
%N Multiples of 9 containing only odd digits.
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%e 117 = 9*13 is a term.
%t Select[9Range[500],And@@OddQ[IntegerDigits[#]]&] (* _Harvey P. Dale_, May 30 2013 *)
%o (PARI) is(n)=n%9==0 && #setintersect(Set(digits(n)), [0,2,4,6,8])==0 \\ _Charles R Greathouse IV_, Feb 15 2017
%Y Cf. A061810, A014263, A061814, A061815, A061816.
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, May 28 2001
%E Corrected and extended by Larry Reeves (larryr(AT)acm.org), May 30 2001
|
