OFFSET
1,1
FORMULA
a(n) ~ 19n. - Charles R Greathouse IV, Feb 12 2017
MATHEMATICA
Select[19*Range[1500], MemberQ[Partition[IntegerDigits[#], 2, 1], {1, 9}]&] (* Harvey P. Dale, Jun 08 2014 *)
PROG
(PARI) is(n)=if(n%19, return(0)); while(n>18, if(n%100==19, 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