A293877 -id:A293877 - cp's OEIS frontend

A293880 Numbers having '20' as substring of their digits.

20, 120, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 220, 320, 420, 520, 620, 720, 820, 920, 1020, 1120, 1200, 1201, 1202, 1203, 1204, 1205, 1206, 1207, 1208, 1209, 1220, 1320, 1420, 1520, 1620, 1720, 1820, 1920, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010

Offset: 1

M. F. Hasler, Oct 18 2017

Row 20 of A292690 and A293869. A121040 lists the terms which are divisible by 19.

Index entries for 10-automatic sequences

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, A293876, A293877, A293878, A293879: same for '10' - '19'.
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.

Select[Range[2100],SequenceCount[IntegerDigits[#],{2,0}]>0&] (* Harvey P. Dale, Jul 25 2021 *)

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

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

A346904 Numbers with sum of digits equaling 17, divisible by 17, and containing the string "17".

Original entry on oeis.org

13175, 15317, 17153, 17306, 17612, 21743, 30617, 41174, 51731, 61217, 101762, 107117, 110177, 111707, 117062, 117215, 117521, 122417, 125171, 131750, 153017, 153170, 170153, 170306, 170612, 171071, 171224, 171530, 172142, 172601, 173060, 173213, 174131, 175202, 176120, 214217

Offset: 1

Tanya Khovanova, Aug 06 2021

			13175 contains 17 as a substring; the sum of digits of 13175 is 17, and 13175 is divisible by 17. Thus, 13175 is in this sequence.

Chai Wah Wu, Table of n, a(n) for n = 1..14300 (all terms < 10^11)

Cf. A121669 (for 19 instead of 17).

Intersection of A008599, A166370, and A293877

d17Q[n_] := Module[{idn = IntegerDigits[n]}, Total[idn] == 17 && MemberQ[Partition[idn, 2, 1], {1, 7}]]; Select[17*Range[20000], d17Q]

def ok(n): s = str(n); return n%17==0 and '17' in s and sum(map(int, s))==17
print(list(filter(ok, range(214218)))) # Michael S. Branicky, Aug 06 2021

cp's OEIS Frontend

A293880 Numbers having '20' as substring of their digits.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula