A121558 -id:A121558 - cp's OEIS frontend

A121557 Numbers n such that n + partition number of n is prime.

1, 2, 3, 9, 11, 13, 19, 21, 23, 25, 26, 37, 39, 40, 41, 49, 59, 73, 91, 97, 100, 103, 119, 141, 147, 161, 169, 191, 205, 217, 275, 283, 285, 330, 429, 471, 485, 533, 581, 597, 605, 623, 631, 635, 641, 679, 697, 757, 767, 799, 841, 907, 971

Offset: 1

Jonathan Vos Post, Aug 07 2006, Aug 09 2006

The primes of the form n + A000009(n) are A121558.

Robert G. Wilson v, Table of n, a(n) for n = 1..366 . [From _Robert G. Wilson v_, Jul 27 2009]

Cf. A000009, A000040, A121558.

Select[Range[1000], PrimeQ[ # + PartitionsQ[ # ]] &] (* Stefan Steinerberger, Aug 08 2006 *)

More terms from Stefan Steinerberger, Aug 08 2006

A163153 Primes of the form A000009(q)+q, where q are also prime numbers.

Original entry on oeis.org

3, 5, 23, 31, 73, 127, 797, 1301, 9851, 40099, 345953, 570181, 281138239, 48626519377, 91840127431010423, 130050574409983361, 6162297935619708167, 604490895403729930283, 3819342674540204978827, 20395819231612037821523

Offset: 1

Vladimir Joseph Stephan Orlovsky, Jul 21 2009

nonn

A subset of A121558.

Generated by positions q= 2, 3, 11, 13, 19, 23, 37, 41, 59, 73, 97..

Cf. A098145, A163150, A163151, A049575, A163152.

f[n_]:=PartitionsQ[n]+n; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, f[p]]],{n,6!}];lst
Select[Table[PartitionsQ[n]+n,{n,Prime[Range[300]]}],PrimeQ] (* Harvey P. Dale, Jun 02 2014 *)

Edited by R. J. Mathar, Jul 25 2009

cp's OEIS Frontend

A121557 Numbers n such that n + partition number of n is prime.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Extensions