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,1

Links

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

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 *)

Crossrefs

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

Sequence in context: A191039 A240278 A106915 * A106916 A249340 A034484

Adjacent sequences: A112925 A112926 A112927 * A112929 A112930 A112931

Keyword

nonn

Author

Leroy Quet, Oct 06 2005

Extensions

More terms from Emeric Deutsch, Oct 14 2005

Status

approved