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
Keywords
Examples
a(10) = 59 = A064800(57) = 57 + 2 (as 57 = 3*19).
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Table[n + PrimeOmega[n], {n, 1, 400}], PrimeQ] // Union (* Jean-François Alcover, Jun 08 2013 *)
-
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
Extensions
Corrected by T. D. Noe, Nov 01 2006
Comments