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
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Reinhard Zumkeller, Jul 21 2006
EXTENSIONS
Corrected by T. D. Noe, Oct 25 2006
STATUS
approved