login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A034902 a(i) is square mod a(j), i <> j; a(n) prime. 0
2, 7, 113, 233, 337, 2129, 3833, 8737, 19553, 46337, 72689, 103681, 361649, 449689, 477017, 668273, 3095353, 7212577, 13188281, 26340857, 46012633, 246116833, 330177017 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..23.

MATHEMATICA

a[1] = 2; squareModQ[p_, q_] := (For[k=0, k <= q, k++, If[Mod[p-k^2, q] == 0, Return[True]]]; Return[False]); a[n_] := a[n] = For[r=NextPrime[a[n-1]], True, r=NextPrime[r], If[And @@ (squareModQ[r, #] && squareModQ[#, r] & /@ Array[a, n-1]), Return[r]]]; Table[Print[a[n]]; a[n], {n, 1, 10}] (* Jean-Fran├žois Alcover, Dec 10 2014 *)

CROSSREFS

Sequence in context: A224445 A000157 A264999 * A101429 A270749 A206151

Adjacent sequences:  A034899 A034900 A034901 * A034903 A034904 A034905

KEYWORD

nonn,nice

AUTHOR

David W. Wilson

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 January 18 05:30 EST 2019. Contains 319269 sequences. (Running on oeis4.)