|
%I #17 Dec 05 2013 19:55:20
%S 4,4,6,4,30,6,42,72,18,30,198,12,312,42,30,192,102,18,228,60,42,198,
%T 138,72,150,312,108,420,348,30,1302,192,198,102,420,72,1998,228,312,
%U 240,1230,42,1032,660,180,138,282,192,882,150,102,312,6360,108,660
%N Smallest multiple of n sandwiched between twin primes.
%C Conjecture: lim sup n ->infinity a(n)/n^2 exists = C, where 0<C<1. - _Benoit Cloitre_, May 23 2002
%H T. D. Noe, <a href="/A071256/b071256.txt">Table of n, a(n) for n=1..1000</a>
%t Table[ s = 2; While[ Mod[s, n] + 2 - Boole[ PrimeQ[s - 1]] - Boole[ PrimeQ[s + 1]] > 0, s++]; s, {n, 1, 55}] (* _Jean-François Alcover_, Dec 08 2011, after Pari *)
%t With[{tpm=Mean/@Select[Partition[Prime[Range[1000]],2,1],#[[2]]-#[[1]] == 2&]},Flatten[Table[Select[tpm,Divisible[#,n]&,1],{n,60}]]] (* _Harvey P. Dale_, Apr 12 2012 *)
%o (PARI) for(n=1,100,s=2; while(s%n+2-isprime(s-1)-isprime(s+1)>0,s++); print1(s,","))
%Y Cf. A071558
%K nice,nonn
%O 1,1
%A _Amarnath Murthy_, May 22 2002
%E More terms from _Benoit Cloitre_, May 23 2002
|
