OFFSET
1,1
LINKS
FORMULA
a(n) ~ 17n. - Charles R Greathouse IV, Feb 12 2017
MATHEMATICA
Select[17*Range[2000], StringContainsQ[IntegerString[#], "17"] &] (* Paolo Xausa, Feb 25 2024 *)
PROG
(PARI) is(n)=if(n%17, return(0)); while(n>16, if(n%100==17, 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