OFFSET
1,1
COMMENTS
2 is the only prime number in the sequence. - Michel Lagneau, May 17 2010
LINKS
Eric Chen, Table of n, a(n) for n = 1..10000
EXAMPLE
a(2) = 8 = 2*2*2; 8+3 = 11 is prime.
a(3) = 9 = 3*3; 9+2 = 11 is prime.
a(4) = 15 = 3*5; 15+2 = 17 is prime.
MAPLE
for k from 2 to 400 do if isprime(k+numtheory[bigomega](k)) then printf("%d, ", k) ; fi; od: # R. J. Mathar, May 19 2009, May 23 2010
MATHEMATICA
Select[Range[10^3], PrimeQ[ # + Plus @@ Last /@ FactorInteger[ # ]] &] (* Michel Lagneau, May 17 2010 *)
Select[Range[300], PrimeQ[#+PrimeOmega[#]]&] (* Harvey P. Dale, Dec 20 2021 *)
PROG
(PARI) is(n)=isprime(n+bigomega(n)) \\ Eric Chen, Jun 13 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Mar 19 2009
EXTENSIONS
191 replaced with 192 and extended by R. J. Mathar, May 19 2009
Generalized (by inserting a(1)=2) by Michel Lagneau, May 17 2010
STATUS
approved