|
%I #19 Feb 26 2024 09:20:38
%S 14,140,714,1148,1400,1414,1428,1442,1456,1470,1484,1498,2114,2142,
%T 2814,3514,4144,4214,4914,5614,6146,6314,7014,7140,7714,8148,8414,
%U 9114,9142,9814,10514,11144,11214,11410,11424,11438,11452,11466,11480,11494
%N Multiples of 14 containing a 14 in their decimal representation.
%H Paolo Xausa, <a href="/A121034/b121034.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F a(n) ~ 14n. - _Charles R Greathouse IV_, Nov 02 2022
%t Select[14*Range[2000], StringContainsQ[IntegerString[#], "14"] &] (* _Paolo Xausa_, Feb 25 2024 *)
%o (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
%Y Cf. A121041, A008596, A011531, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121035, A121036, A121037, A121038, A121039, A121040.
%K nonn,base,easy
%O 1,1
%A _Reinhard Zumkeller_, Jul 21 2006
%E Corrected by _T. D. Noe_, Oct 25 2006
|
