|
| |
|
|
A163152
|
|
Primes of the form PartitionsP[p], p are prime numbers.
|
|
1
|
|
|
|
2, 3, 7, 101, 80630964769, 1394313503224447816939, 87674799670795146675673859587, 62607220478448273296879161314388228250413, 79074320470247928120049519839632230336234433216761019, 77355497906663686399579348109210219558359416885618588905259034616641337958059
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..10.
|
|
|
MATHEMATICA
|
f[n_]:=PartitionsP[n]; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 6!}]; lst
Select[PartitionsP[Prime[Range[1000]]], PrimeQ] (* Harvey P. Dale, May 16 2020 *)
|
|
|
PROG
|
(PARI) forprime(p=2, 1e4, k=numbpart(p); if(isprime(k), print1(k", ")))
|
|
|
CROSSREFS
|
Cf. A098145, A163150, A163151, A049575.
Sequence in context: A062529 A308917 A058443 * A088120 A230778 A111870
Adjacent sequences: A163149 A163150 A163151 * A163153 A163154 A163155
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, Jul 21 2009
|
|
|
EXTENSIONS
|
Program by Charles R Greathouse IV, Oct 12 2009
More terms from Harvey P. Dale, May 16 2020
|
|
|
STATUS
|
approved
|
| |
|
|
