[go: up one dir, main page]

login
A121040
Multiples of 20 containing a 20 in their decimal representation.
36
20, 120, 200, 220, 320, 420, 520, 620, 720, 820, 920, 1020, 1120, 1200, 1220, 1320, 1420, 1520, 1620, 1720, 1820, 1920, 2000, 2020, 2040, 2060, 2080, 2120, 2200, 2220, 2320, 2420, 2520, 2620, 2720, 2820, 2920, 3020, 3120, 3200, 3220, 3320, 3420, 3520
OFFSET
1,1
COMMENTS
Not the same as A044352.
FORMULA
a(n) ~ 20n. - Charles R Greathouse IV, Feb 12 2017
MATHEMATICA
Select[20*Range[200], SequenceCount[IntegerDigits[#], {2, 0}]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, Nov 27 2015 *)
PROG
(PARI) is(n)=if(n%20, return(0)); while(n>19, if(n%100==20, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017
KEYWORD
nonn,base,easy
AUTHOR
Reinhard Zumkeller, Jul 21 2006
EXTENSIONS
Corrected by T. D. Noe, Oct 25 2006
STATUS
approved