|
| |
|
|
A293877
|
|
Numbers having '17' as substring of their digits / decimal expansion.
|
|
13
|
|
|
|
17, 117, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 217, 317, 417, 517, 617, 717, 817, 917, 1017, 1117, 1170, 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1217, 1317, 1417, 1517, 1617, 1700, 1701, 1702, 1703, 1704, 1705, 1706, 1707, 1708, 1709, 1710, 1711, 1712, 1713
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
|
|
|
LINKS
|
|
|
|
FORMULA
|
|
|
|
MATHEMATICA
|
Select[Range[2000], StringContainsQ[IntegerString[#], "17"] &] (* Paolo Xausa, Feb 25 2024 *)
|
|
|
PROG
|
(PARI) is_A293877 = has(n, p=17, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1))
|
|
|
CROSSREFS
|
Cf. A121041, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121034, A121035, A121036, A121037, A121038, A121039, A121040: subsequences of the above, containing only multiples of the pattern p.
|
|
|
KEYWORD
|
nonn,base,easy
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
