A121038 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Index entries for 10-automatic sequences.

FORMULA

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

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 *)

PROG

(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

CROSSREFS

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

Sequence in context: A213350 A052507 A071910 * A341370 A004410 A140325

Adjacent sequences: A121035 A121036 A121037 * A121039 A121040 A121041

KEYWORD

nonn,base,easy

AUTHOR

Reinhard Zumkeller, Jul 21 2006

EXTENSIONS

Corrected by T. D. Noe, Oct 25 2006

STATUS

approved