login
a(n) cannot be prefixed or followed by any digit to form a semiprime.
1

%I #18 Feb 03 2025 02:24:08

%S 60,208,252,552,588,630,656,696,710,768,816,864,1025,1028,1050,1225,

%T 1280,1300,1432,1804,1950,2004,2016,2152,2160,2376,2410,2664,2672,

%U 2808,2920,2988,3172,3230,3356

%N a(n) cannot be prefixed or followed by any digit to form a semiprime.

%C Analogy: semiprimes A001358 are to primes A000040 as this sequence is to A032734.

%H Robert Israel, <a href="/A181333/b181333.txt">Table of n, a(n) for n = 1..10000</a>

%e a(1) = 60 because 60 (any digit to the left still gives a multiple of 10, not a semiprime) and

%e 601 is prime,

%e 602 = 2 * 7 * 43,

%e 603 = 3^2 * 67,

%e 604 = 2^2 * 151,

%e 605 = 5 * 11^2,

%e 606 = 2 * 3 * 101,

%e 607 is prime,

%e 608 = 2^5 * 19,

%e 609 = 3 * 7 * 29.

%e a(2) = 208 because any digit to the left still ends in 8, and is nonsemiprime, and:

%e 2081 is prime,

%e 2082 = 2 * 3 * 347,

%e 2083 is prime,

%e 2084 = 2^2 * 521,

%e 2085 = 3 * 5 * 139,

%e 2086 = 2 * 7 * 149,

%e 2087 is prime,

%e 2088 = 2^3 * 3^2 * 29,

%e 2089 is prime.

%p filter:= proc(n) local i,r; r:= 10^(1+ilog10(n)); not ormap(t -> numtheory:-bigomega(t)=2, [seq(i*r+n, i=1..9),seq(10*n+i,i=0..9)]) end proc:

%p select(filter, [$1..10000]); # _Robert Israel_, Feb 02 2025

%t fQ[n_] := Block[{d = Range[0, 9], id = IntegerDigits@ n}, Union[ semiPrimeQ@ # & /@ Sort@ Join[ FromDigits /@ (Join[{#}, id] & /@ d), FromDigits /@ (Join[id, {#}] & /@ d)]] == {False}];

%t Select [ Range@ 100, fQ] ; (* _Robert G. Wilson v_, Jan 27 2011 *)

%Y Cf. A001358.

%K nonn,easy,base,changed

%O 1,1

%A _Jonathan Vos Post_, Jan 27 2011