OFFSET
1,1
COMMENTS
The representation is ambiguous, see A069349.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
a(10) = 59 = A064800(57) = 57 + 2 (as 57 = 3*19).
MATHEMATICA
Select[Table[n + PrimeOmega[n], {n, 1, 400}], PrimeQ] // Union (* Jean-François Alcover, Jun 08 2013 *)
PROG
(PARI) is(n)=for(k=1, log(n+.5)\log(2), if(bigomega(n-k)==k, return(isprime(n)))); 0 \\ Charles R Greathouse IV, Dec 10 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 18 2002
EXTENSIONS
Corrected by T. D. Noe, Nov 01 2006
STATUS
approved