A183056 Cyclops partition numbers.

101, 26015, 483502844, 27517052599, 2814570987591, 269232701252579, 12269218019229465, 477535459708164115593, 55271949286085137715955, 98175979536033971312388, 28848173767368633057992125893483779

Offset

1,1

Links

Table of n, a(n) for n=1..11.

Formula

Intersection of A000041 and A134808.

Example

a(1) = 101 is in the sequence because 101 is a partition number A000041 and it is also a cyclops number A134808.

Mathematica

cnQ[n_]:=Module[{idn=IntegerDigits[n], len}, len=Length[idn]; DigitCount[ n, 10, 0]==1&&OddQ[len]&&idn[[(len+1)/2]]==0]; Select[PartitionsP[ Range[ 2000]], cnQ] (* Harvey P. Dale, Apr 10 2019 *)

Crossrefs

Cf. A000041, A134808, A134809, A160717.

Sequence in context: A136098 A153807 A327741 * A261881 A262633 A261966

Adjacent sequences: A183053 A183054 A183055 * A183057 A183058 A183059

Keyword

nonn,base

Author

Omar E. Pol, Dec 21 2010

Extensions

a(11) from Alois P. Heinz, Dec 23 2010

Status

approved