A293876 Numbers having '16' as substring of their digits / decimal expansion.

16, 116, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 216, 316, 416, 516, 616, 716, 816, 916, 1016, 1116, 1160, 1161, 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1216, 1316, 1416, 1516, 1600, 1601, 1602, 1603, 1604, 1605, 1606, 1607, 1608, 1609, 1610, 1611, 1612, 1613, 1614

Offset: 1

Author

M. F. Hasler, Oct 18 2017

Keywords

• nonn
• base
• easy

Comments

Row 16 of A292690 and A293869. A121036 lists the terms which are divisible by 16.

Links

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

Crossrefs

Cf. A292690, A293869.

Cf. A011540, A011531, A011532, A011533, A011534, A011535, A011536, A011537, A011538, A011539: analog for '0' - '9'.

Cf. A293870, A293871, A293872, A293873, A293874, A293875, A293877, A293878, A293879, A293880: same for '10' - '20'.

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.

Programs

Mathematica

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

PARI

is_A293876 = has(n, p=16, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1))

Formula

a(n) ~ n. - Charles R Greathouse IV, Nov 02 2022