A293874 Numbers having '14' as substring of their digits.
14, 114, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 214, 314, 414, 514, 614, 714, 814, 914, 1014, 1114, 1140, 1141, 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1214, 1314, 1400, 1401, 1402, 1403, 1404, 1405, 1406, 1407, 1408, 1409, 1410, 1411, 1412, 1413, 1414, 1415, 1416
Offset: 1
Links
Crossrefs
Programs
-
Mathematica
Select[Range[2000], StringContainsQ[IntegerString[#], "14"] &] (* Paolo Xausa, Feb 25 2024 *)
-
PARI
is_A293874 = has(n, p=14, 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