OFFSET
1,1
LINKS
MATHEMATICA
Select[13*Range[2000], StringContainsQ[IntegerString[#], "13"] &] (* Paolo Xausa, Feb 25 2024 *)
PROG
(PARI) is(n)=if(n%13, return(0)); while(n>12, if(n%100==13, 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