|
%I #16 Jul 14 2019 13:15:22
%S 1,2,3,4,5,6,8,9,10,11,12,13,15,16,18,19,20,22,23,24,25,26,29,30,31,
%T 32,33,34,36,38,39,40,41,43,44,45,46,48,50,51,52,53,54,55,58,59,60,61,
%U 62,64,65,66,68,69,80,81,82,83,85,86,88,89,90,92,93,94,95
%N Integers such that no nonzero subsequence of decimal representation is divisible by 7.
%t With[{k = 7}, Select[Range@ 100, NoneTrue[DeleteCases[FromDigits /@ Rest@ Subsequences[IntegerDigits@ #], 0], Mod[#, k] == 0 &] &]] (* _Michael De Vlieger_, Mar 31 2019 *)
%Y Cf. A014261 (for 2), A325112 (for 3), A325113 (for 4), A261189 (for 5).
%K nonn,base
%O 1,2
%A _Jonathan Kal-El Peréz_, Mar 27 2019
|
