A135495 Numbers n with property that for each single digit d of n, we can also see the decimal expansion of 2d as a substring of n.

0, 121648, 121684, 124168, 124816, 128164, 128416, 161248, 161284, 164128, 164812, 168124, 168412, 412168, 412816, 416128, 416812, 481216, 481612, 812164, 812416, 816124, 816412, 841216, 841612, 1121648, 1121684, 1124168

Offset: 1

Author

Zak Seidov, Feb 08 2008

Keywords

• nonn
• base

Links

• David Applegate, Table of n, a(n) for n = 1..301

Crossrefs

Cf. A135463, A134962.

Programs

Mathematica

Select[Range[0, 10^6], Function[d, AllTrue[IntegerDigits[2 d], SequenceCount[d, #] >= 1 &]]@ IntegerDigits[#] &] (* Michael De Vlieger, Jan 11 2018 *)

Extensions

Corrected by David Applegate, Feb 09 2008