Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A163150
Primes of the form A000041(p)+p, where p is some prime.
3
67, 509, 45060624733, 21424521360255636739, 404577789549846859589538794509144411672022828773, 22138618005861522471365237940368652982888104077311
OFFSET
1,1
FORMULA
a(n) = A000041(A163151(n))+A163151(n).
EXAMPLE
With p=11=A000040(5) = A163151(1), a(1)= A000041(11)+11 = 67 is prime.
MATHEMATICA
f[n_]:=PartitionsP[n]+n; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 6!}]; lst
CROSSREFS
Sequence in context: A342803 A219736 A257747 * A120717 A200963 A245878
KEYWORD
nonn
AUTHOR
EXTENSIONS
Removed Mathematica specific language in the definition - R. J. Mathar, Sep 11 2009
STATUS
approved