A213313 Numbers with exactly 6 nonprime substrings (substrings with leading zeros are considered to be nonprime).
100, 104, 106, 108, 140, 144, 146, 148, 160, 164, 166, 168, 169, 180, 184, 186, 188, 400, 404, 406, 408, 440, 444, 446, 448, 460, 464, 466, 468, 469, 480, 481, 484, 486, 488, 490, 494, 496, 498, 600, 604, 606, 608, 609
Offset: 1
Examples
a(1)=100, since 100 has 6 nonprime substrings (0, 0, 00, 1, 10, 100). a(2351)= 3733797, since there are 6 nonprime substrings (9, 33, 3379, 7337, 733797, 3733797).
Links
- Hieronymus Fischer, Table of n, a(n) for n = 1..2351
Crossrefs
Programs
-
Mathematica
Select[Range[700],Count[FromDigits/@Flatten[Table[Partition[ IntegerDigits[ #],n,1], {n, IntegerLength[#]}],1],?(!PrimeQ[#]&)]==6&] (* _Harvey P. Dale, Apr 08 2019 *)
Comments