login
Inserting any (identical) digit between adjacent digits of an odd semiprime k never yields a prime.
1

%I #12 Mar 07 2018 18:14:38

%S 15,25,35,55,65,85,95,115,121,143,145,155,185,187,205,215,235,253,265,

%T 295,299,305,335,341,355,365,393,395,411,415,437,445,451,473,485,505,

%U 515,535,545,565,583,635,655,671,679,685,695,717,745,755,781,785,815

%N Inserting any (identical) digit between adjacent digits of an odd semiprime k never yields a prime.

%C Odd semiprime analog of A050805. Trivially true for any digit if we substitute "even semiprime" for "odd semiprime." Trivially true for any semiprime which is a multiple of 5 (A001750). The nonmultiples of 5 in this sequence begin 121, 143, 187, 253, 299, 341.

%H Harvey P. Dale, <a href="/A133321/b133321.txt">Table of n, a(n) for n = 1..1000</a>

%e 121 is in the sequence because 10201, 11211, 12221, 13231, 14241, 15251, 16261, 17271, 18281, 19291 are all composite.

%t Select[Select[Range[11,900,2],PrimeOmega[#]==2&],AllTrue[Table[ FromDigits[ Riffle[ IntegerDigits[#],n]],{n,0,9}],CompositeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 07 2018 *)

%Y Cf. A001358, A001750, A050674-A050719, A050805, A050806.

%K base,easy,nonn

%O 1,1

%A _Jonathan Vos Post_, Oct 18 2007

%E More terms from _R. J. Mathar_, Oct 22 2007