A112928 Primes in sequence A112926.

3, 5, 13, 19, 61, 73, 101, 109, 151, 181, 193, 199, 229, 241, 271, 313, 349, 353, 421, 433, 523, 601, 661, 811, 829, 883, 1021, 1033, 1051, 1063, 1093, 1153, 1279, 1321, 1429, 1451, 1453, 1489, 1609, 1621, 1667, 1669, 1789, 1873, 1933, 1951, 1999, 2029

Offset: 1

Author

Leroy Quet, Oct 06 2005

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A061400, A112925, A112926, A112929, A112930.

Programs

Maple

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

Mathematica

With[{k = 120}, Select[Table[SelectFirst[Range[Prime@ n + 1, Prime@ n + k], SquareFreeQ], {n, 300}], PrimeQ]] (* Michael De Vlieger, Sep 11 2017 *)

Extensions

More terms from Emeric Deutsch, Oct 14 2005