|
%I #14 Feb 19 2018 15:01:08
%S 0,121648,121684,124168,124816,128164,128416,161248,161284,164128,
%T 164812,168124,168412,412168,412816,416128,416812,481216,481612,
%U 812164,812416,816124,816412,841216,841612,1121648,1121684,1124168
%N 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.
%H David Applegate, <a href="/A135495/b135495.txt">Table of n, a(n) for n = 1..301</a>
%t Select[Range[0, 10^6], Function[d, AllTrue[IntegerDigits[2 d], SequenceCount[d, #] >= 1 &]]@ IntegerDigits[#] &] (* _Michael De Vlieger_, Jan 11 2018 *)
%o For C++ program see the Applegate link in A135463.
%Y Cf. A135463, A134962.
%K nonn,base
%O 1,2
%A _Zak Seidov_, Feb 08 2008
%E Corrected by _David Applegate_, Feb 09 2008
|
