|
%I #12 Sep 11 2017 19:48:02
%S 3,5,13,19,61,73,101,109,151,181,193,199,229,241,271,313,349,353,421,
%T 433,523,601,661,811,829,883,1021,1033,1051,1063,1093,1153,1279,1321,
%U 1429,1451,1453,1489,1609,1621,1667,1669,1789,1873,1933,1951,1999,2029
%N Primes in sequence A112926.
%H Michael De Vlieger, <a href="/A112928/b112928.txt">Table of n, a(n) for n = 1..10000</a>
%p with(numtheory): a:=proc(n) local p,B,j: p:=ithprime(n): B:={}: for j from p+1 to p+20 do if abs(mobius(j))>0 then B:=B union {j} else B:=B fi od: B[1] end: A:=[seq(a(m),m=1..400)]: b:=proc(k) if isprime(A[k])=true then A[k] else fi end: seq(b(i),i=1..400); # _Emeric Deutsch_, Oct 14 2005
%t With[{k = 120}, Select[Table[SelectFirst[Range[Prime@ n + 1, Prime@ n + k], SquareFreeQ], {n, 300}], PrimeQ]] (* _Michael De Vlieger_, Sep 11 2017 *)
%Y Cf. A061400, A112925, A112926, A112929, A112930.
%K nonn
%O 1,1
%A _Leroy Quet_, Oct 06 2005
%E More terms from _Emeric Deutsch_, Oct 14 2005
|
