[go: up one dir, main page]

login
A121033
Multiples of 13 containing a 13 in their decimal representation.
34
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
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
KEYWORD
nonn,base,easy
AUTHOR
Reinhard Zumkeller, Jul 21 2006
EXTENSIONS
Corrected by T. D. Noe, Oct 25 2006
STATUS
approved