OFFSET
1,2
COMMENTS
Conjecture: a(n) > 0 for all n. - Jianing Song, Mar 09 2021
LINKS
Zak Seidov, Table of n, a(n) for n = 1..100
FORMULA
A016014(a(n)) = n.
MAPLE
isA239800 := proc(n, m) local k;
for k from 1 to n-1 while not isprime(2*m*k + 1) do od;
if k < n then false else isprime(2*m*n + 1) fi end:
A239800 := proc(n, SearchLimit) local k;
for k from 1 to SearchLimit do if isA239800(n, k) then return k fi od;
error "Search limit reached!" end:
A239800List := (ListLength, SearchLimit) ->
map(n -> A239800(n, SearchLimit), [$1..ListLength]):
A239800List(32, 65537); # Peter Luschny, Oct 05 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 27 2014
EXTENSIONS
Escape clause added by Jianing Song, Mar 09 2021
STATUS
approved