|
|
A293878
|
|
Numbers having '18' as substring of their digits / decimal expansion.
|
|
12
|
|
|
18, 118, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 218, 318, 418, 518, 618, 718, 818, 918, 1018, 1118, 1180, 1181, 1182, 1183, 1184, 1185, 1186, 1187, 1188, 1189, 1218, 1318, 1418, 1518, 1618, 1718, 1800, 1801, 1802, 1803, 1804, 1805, 1806, 1807, 1808, 1809, 1810, 1811, 1812
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[2000], StringContainsQ[IntegerString[#], "18"] &] (* Paolo Xausa, Feb 25 2024 *)
|
|
PROG
|
(PARI) is_A293878 = has(n, p=18, 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
|
|
|
|