OFFSET
5,1
LINKS
James C. McMahon, Table of n, a(n) for n = 5..10000
MATHEMATICA
a[n_]:=Module[{c=Prime[n]-2}, While[PrimeOmega[c]!=2, c=c-2]; c]; Array[a, 58, 5] (* James C. McMahon, Mar 07 2026 *)
PROG
(PARI) a393829(n) = forstep(k=prime(n)-2, 9, -2, if(bigomega(k)==2, return(k))); -1
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Hugo Pfoertner, Mar 07 2026
STATUS
approved
