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,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Index entries for 10-automatic sequences.

Mathematica

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

Prog

(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

Crossrefs

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

Sequence in context: A155623 A023061 A255495 * A006100 A037603 A037708

Adjacent sequences: A121030 A121031 A121032 * A121034 A121035 A121036

Keyword

nonn,base,easy

Author

Reinhard Zumkeller, Jul 21 2006

Extensions

Corrected by T. D. Noe, Oct 25 2006

Status

approved