|
%I #18 Feb 26 2024 09:21:16
%S 15,150,315,615,915,1155,1215,1500,1515,1530,1545,1560,1575,1590,1815,
%T 2115,2415,2715,3015,3150,3315,3615,3915,4155,4215,4515,4815,5115,
%U 5415,5715,6015,6150,6315,6615,6915,7155,7215,7515,7815,8115,8415,8715,9015
%N Multiples of 15 containing a 15 in their decimal representation.
%H Paolo Xausa, <a href="/A121035/b121035.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) ~ 15n. - _Charles R Greathouse IV_, Nov 02 2022
%t Select[15*Range[1000], StringContainsQ[IntegerString[#], "15"] &] (* _Paolo Xausa_, Feb 25 2024 *)
%o (PARI) is(n)=if(n%15, return(0)); while(n>14, if(n%100==15, return(1)); n\=10); 0 \\ _Charles R Greathouse IV_, Feb 12 2017
%Y Cf. A121041, A008597, A011531, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121034, A121036, A121037, A121038, A121039, A121040.
%K nonn,base,easy
%O 1,1
%A _Reinhard Zumkeller_, Jul 21 2006, Jul 26 2006
|
