A121038 Multiples of 18 containing a 18 in their decimal representation.

18, 180, 918, 1188, 1800, 1818, 1836, 1854, 1872, 1890, 2718, 3186, 3618, 4518, 5184, 5418, 6318, 7182, 7218, 8118, 9018, 9180, 9918, 10188, 10818, 11718, 11808, 11826, 11844, 11862, 11880, 11898, 12186, 12618, 13518, 14184, 14418, 15318, 16182

Offset: 1

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

• nonn
• base
• easy

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000
• Index entries for 10-automatic sequences.

Crossrefs

Cf. A121041, A008600, A011531, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121034, A121035, A121036, A121037, A121039, A121040.

Programs

Mathematica

Select[18*Range[1000],SequenceCount[IntegerDigits[#],{1,8}]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, May 01 2016 *)

PARI

is(n)=if(n%18, return(0)); while(n>17, if(n%100==18, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017

Formula

a(n) ~ 18n. - Charles R Greathouse IV, Feb 12 2017

Extensions

Corrected by T. D. Noe, Oct 25 2006