A121023 Multiples of 3 containing a 3 in their decimal representation.
3, 30, 33, 36, 39, 63, 93, 123, 132, 135, 138, 153, 183, 213, 231, 234, 237, 243, 273, 300, 303, 306, 309, 312, 315, 318, 321, 324, 327, 330, 333, 336, 339, 342, 345, 348, 351, 354, 357, 360, 363, 366, 369, 372, 375, 378, 381, 384, 387, 390, 393, 396, 399
Offset: 1
Links
Crossrefs
Programs
-
Mathematica
Select[3*Range[500], MemberQ[IntegerDigits[#],3] &] (* Paolo Xausa, Feb 25 2024 *)
-
PARI
is(n)=!(n%3)&&setsearch(Set(digits(n)),3) \\ M. F. Hasler, Mar 09 2014
-
PARI
c=0;forstep(n=3,3e4,3,is(n)&write("/tmp/b121023.txt",c++" "n))
Formula
a(n) ~ 3n. - Charles R Greathouse IV, Mar 31 2016
Extensions
Typo in comment fixed by Reinhard Zumkeller, May 01 2011
Comments