login
A069348
Primes of the form k + Omega(k), where Omega(k) is the number of prime factors of k, A001222(k).
6
3, 11, 17, 23, 31, 37, 41, 47, 53, 59, 67, 71, 73, 79, 89, 97, 101, 113, 127, 131, 139, 151, 157, 163, 167, 173, 179, 181, 191, 193, 199, 211, 223, 229, 233, 239, 241, 251, 257, 269, 271, 277, 293, 307, 311, 313, 317, 331, 337
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
Sequence in context: A175073 A062284 A141339 * A165561 A038960 A019397
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 18 2002
EXTENSIONS
Corrected by T. D. Noe, Nov 01 2006
STATUS
approved