Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #7 Jul 11 2015 11:21:07
%S 3,2,2,5,1,1,1,1,1,2,4,2,3,7,4,3,6,6,4,1,2,4,13,2,4,3,7,21,6,9,3,1,5,
%T 4,16,19,28,19,9,3
%N Smallest integer k>0 such that k*10^n + 1 is a semiprime.
%C The corresponding semiprimes are 4, 21, 201, 5001, 10001, 100001, 100001, 10000001, 2000000001, 40000000001, ... Semiprime analog of A121172.
%F Smallest integer k>0 such that k*10^n + 1 is in A001358.
%e a(0) = 3 because 3*10^0 + 1 = 4 = 2^2 is a semiprime.
%e a(1) = 2 because 2*10^1 + 1 = 21 = 3*7 is a semiprime.
%e a(2) = 2 because 2*10^2 + 1 = 201 = 3*67 is a semiprime.
%e a(3) = 5 because 5*10^3 + 1 = 5001 = 3*1667 is a semiprime.
%e a(4) = 1 because 1*10^4 + 1 = 10001 = 73*137 is a semiprime.
%e a(5) = 1 because 1*10^5 + 1 = 100001 = 11*9091 is a semiprime.
%t sik[n_]:=Module[{k=1,c=10^n},While[PrimeOmega[k*c+1]!=2,k++];k]; Array[sik,40,0] (* _Harvey P. Dale_, Aug 20 2012 *)
%Y Cf. A001358, A030430, A037071, A062800, A065582, A121172.
%K easy,nonn
%O 0,1
%A _Jonathan Vos Post_, Aug 17 2006
%E More terms from _Harvey P. Dale_, Aug 20 2012