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