|
|
A121038
|
|
Multiples of 18 containing a 18 in their decimal representation.
|
|
34
|
|
|
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
|
|
|
FORMULA
|
|
|
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.
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|