OFFSET
1,2
REFERENCES
S. K. Stein and S. Szabo, Algebra and Tiling, MAA Carus Monograph 25, 1994, page 104.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) max(prevprime(n), 2*prevprime(floor((n-1)/2))) end proc:
for i from 1 to 6 do f(i):= [1, 2, 2, 3, 3, 5, 5][i] od:
map(f, [$1..100]); # Robert Israel, Dec 15 2023
MATHEMATICA
Join[{1, 2}, Table[Max[NextPrime[n, -1], 2NextPrime[Floor[(n-1)/2], -1]], {n, 3, 70}]] (* Harvey P. Dale, Mar 12 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved