A183056 Cyclops partition numbers.

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

Offset: 1

Author

Omar E. Pol, Dec 21 2010

Keywords

• nonn
• base

Examples

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

Crossrefs

Cf. A000041, A134808, A134809, A160717.

Programs

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 *)

Formula

Intersection of A000041 and A134808.

Extensions

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