A067073 Records in A092419.
3, 7, 13, 17, 19, 31, 37, 41, 43, 47, 53, 71, 79, 89, 103, 127, 131, 137, 151
Offset: 1
Programs
-
Maple
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
Extensions
a(8)-a(12) from R. J. Mathar, Jul 13 2009
a(13)-a(19) from Sean A. Irvine, Dec 02 2023
Comments