login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A112928 Primes in sequence A112926. 6
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 5 18:37 EDT 2021. Contains 343573 sequences. (Running on oeis4.)