|
|
A163151
|
|
Primes p such that A000041(p)+p are also prime numbers.
|
|
3
|
|
|
11, 19, 151, 419, 2161, 2311, 2539, 4831, 5563, 6961, 8363, 9007, 9661, 12347, 20533, 21493, 31033, 45737, 45817, 46919, 49363, 59419, 60017, 82883, 86561, 93491, 99709, 104231, 105499, 113381, 125471
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Table of n, a(n) for n=1..31.
|
|
FORMULA
|
A000041(a(n)) + a(n) = A163150(n).
|
|
MATHEMATICA
|
f[n_]:=PartitionsP[n]+n; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, p]], {n, 6!}]; lst
|
|
CROSSREFS
|
Cf. A098145, A163150
Sequence in context: A238332 A089773 A048389 * A020457 A032370 A295834
Adjacent sequences: A163148 A163149 A163150 * A163152 A163153 A163154
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, Jul 21 2009
|
|
EXTENSIONS
|
Removed Mathematica specific language in the definition - R. J. Mathar, Sep 11 2009
Extended by D. S. McNeil, Dec 05 2010
|
|
STATUS
|
approved
|
|
|
|