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,2

Links

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

Mathematica

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

Prog

For C++ program see the Applegate link in A135463.

Crossrefs

Cf. A135463, A134962.

Sequence in context: A068136 A362966 A236826 * A067384 A066881 A048903

Adjacent sequences: A135492 A135493 A135494 * A135496 A135497 A135498

Keyword

nonn,base

Author

Zak Seidov, Feb 08 2008

Extensions

Corrected by David Applegate, Feb 09 2008

Status

approved