A121037 Multiples of 17 containing a 17 in their decimal representation.
17, 170, 1173, 1700, 1717, 1734, 1751, 1768, 1785, 2176, 3179, 3417, 5117, 6171, 6817, 7174, 8177, 8517, 10217, 11713, 11730, 11747, 11764, 11781, 11798, 11917, 12172, 13175, 13617, 14178, 15317, 17000, 17017, 17034, 17051, 17068, 17085
Offset: 1
Links
Crossrefs
Programs
-
Mathematica
Select[17*Range[2000], StringContainsQ[IntegerString[#], "17"] &] (* Paolo Xausa, Feb 25 2024 *)
-
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
Formula
a(n) ~ 17n. - Charles R Greathouse IV, Feb 12 2017
Extensions
Corrected by T. D. Noe, Oct 25 2006
Comments