A069348 Primes of the form k + Omega(k), where Omega(k) is the number of prime factors of k, A001222(k).

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

Cf. A069346, A069357.

Sequence in context: A175073 A062284 A141339 * A165561 A038960 A019397

Adjacent sequences: A069345 A069346 A069347 * A069349 A069350 A069351

Keyword

nonn

Author

Reinhard Zumkeller, Mar 18 2002

Extensions

Corrected by T. D. Noe, Nov 01 2006

Status

approved