|
|
|
|
3, 7, 13, 17, 19, 31, 37, 41, 43, 47, 53, 71, 79, 89, 103, 127, 131, 137, 151
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The old entry with this sequence number was a duplicate of A049236.
|
|
LINKS
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|