1,1

The old entry with this sequence number was a duplicate of A049236.

A000037 := proc(n) n +floor(1/2+sqrt(n)) ; end: A092419 :=proc(n) local i, k; k := A000037(n) ; for i from 1 do if numtheory[legendre](k, ithprime(i)) = -1 then RETURN(ithprime(i)); fi; od; end: rec := -1 ; for n from 1 do a := A092419(n) ; if a > rec then printf("%d, \n", a) ; rec := a; fi; od: # R. J. Mathar, Jul 13 2009

Cf. A092419, A070040.

Sequence in context: A040999 A172240 A129901 * A323579 A124273 A038923

Adjacent sequences: A067070 A067071 A067072 * A067074 A067075 A067076

nonn,more

N. J. A. Sloane, Oct 16 2008

a(8)-a(12) from R. J. Mathar, Jul 13 2009

a(13)-a(19) from Sean A. Irvine, Dec 02 2023

approved