|
Search: id:A163152
|
|
|
| A163152 |
|
Primes of the form PartitionsP[p], p are prime numbers; |
|
+0
2
|
|
| 2, 3, 7, 101, 80630964769, 1394313503224447816939, 87674799670795146675673859587, 62607220478448273296879161314388228250413
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
f[n_]:=PartitionsP[n]; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 6!}]; lst
|
|
PROGRAM
|
forprime(p=2, 1e4, k=numbpart(p); if(isprime(k), print1(k", ")))
|
|
CROSSREFS
|
Cf. A098145, A163150, A163151, A049575
Sequence in context: A062578 A062529 A058443 this_sequence A088120 A111870 A062935
Adjacent sequences: A163149 A163150 A163151 this_sequence A163153 A163154 A163155
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jul 21 2009
|
|
EXTENSIONS
|
Program by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Oct 12 2009
|
|
|
Search completed in 0.002 seconds
|
