A121033 Multiples of 13 containing a 13 in their decimal representation.

13, 130, 1131, 1300, 1313, 1326, 1339, 1352, 1365, 1378, 1391, 2132, 2613, 3133, 3913, 4134, 5135, 5213, 6136, 6513, 7137, 7813, 8138, 9113, 9139, 10413, 11310, 11323, 11336, 11349, 11362, 11375, 11388, 11713, 13000, 13013, 13026, 13039

Offset: 1

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

• nonn
• base
• easy

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000
• Index entries for 10-automatic sequences.

Crossrefs

Cf. A121041, A008595, A011531, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121034, A121035, A121036, A121037, A121038, A121039, A121040.

Programs

Mathematica

Select[13*Range[2000], StringContainsQ[IntegerString[#], "13"] &] (* Paolo Xausa, Feb 25 2024 *)

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

Extensions

Corrected by T. D. Noe, Oct 25 2006