|
%I #19 Feb 25 2024 17:52:48
%S 3,30,33,36,39,63,93,123,132,135,138,153,183,213,231,234,237,243,273,
%T 300,303,306,309,312,315,318,321,324,327,330,333,336,339,342,345,348,
%U 351,354,357,360,363,366,369,372,375,378,381,384,387,390,393,396,399
%N Multiples of 3 containing a 3 in their decimal representation.
%C Intersection of A008585 and A011533.
%C The graph of this sequence is (roughly) self-similar: it has the same appearance when the scale is multiplied by 10. - _M. F. Hasler_, Mar 09 2014
%H M. F. Hasler, <a href="/A121023/b121023.txt">Table of n, a(n) for n = 1..3440</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F a(n) ~ 3n. - _Charles R Greathouse IV_, Mar 31 2016
%t Select[3*Range[500], MemberQ[IntegerDigits[#],3] &] (* _Paolo Xausa_, Feb 25 2024 *)
%o (PARI) is(n)=!(n%3)&&setsearch(Set(digits(n)),3) \\ _M. F. Hasler_, Mar 09 2014
%o (PARI) c=0;forstep(n=3,3e4,3,is(n)&write("/tmp/b121023.txt",c++" "n))
%Y Cf. A121041, A011531, A121022, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121034, A121035, A121036, A121037, A121038, A121039, A121040.
%K nonn,base,easy
%O 1,1
%A _Reinhard Zumkeller_, Jul 21 2006
%E Typo in comment fixed by _Reinhard Zumkeller_, May 01 2011
|
