login
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.
2
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
MATHEMATICA
Select[Range[0, 10^6], Function[d, AllTrue[IntegerDigits[2 d], SequenceCount[d, #] >= 1 &]]@ IntegerDigits[#] &] (* Michael De Vlieger, Jan 11 2018 *)
PROG
(C++) // See the Applegate link in A135463.
CROSSREFS
Sequence in context: A068136 A362966 A236826 * A067384 A066881 A048903
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Feb 08 2008
EXTENSIONS
Corrected by David Applegate, Feb 09 2008
STATUS
approved