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
Crossrefs
Programs
-
Mathematica
Select[Range[2100],SequenceCount[IntegerDigits[#],{2,0}]>0&] (* Harvey P. Dale, Jul 25 2021 *)
-
PARI
is_A293880 = has(n, p=20, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1))
Formula
a(n) ~ n. - Charles R Greathouse IV, Nov 02 2022
Comments