cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A328369 Numbers without repeated parts in their partitions into consecutive parts.

This page as a plain text file.
%I A328369 #26 Nov 30 2019 17:25:37
%S A328369 1,2,3,4,5,6,7,8,10,11,12,13,14,16,17,19,20,22,23,24,25,26,27,28,29,
%T A328369 31,32,33,34,36,37,38,39,40,41,43,44,46,47,48,49,51,52,53,54,56,57,58,
%U A328369 59,61,62,64,66,67,68,69,71,72,73,74,76,78,79,80,82,83,85,86,87,88,89,92,93,94,95,96,97,98,100
%N A328369 Numbers without repeated parts in their partitions into consecutive parts.
%C A328369 All primes are terms. - _Ivan N. Ianakiev_, Nov 05 2019
%C A328369 All powers of 2 are terms. - _Omar E. Pol_, Nov 19 2019
%e A328369 The partitions of 9 into consecutive parts are [9], [5, 4], [4, 3, 2]. The 4 is a repeated part, so 9 is not in the sequence.
%e A328369 The partitions of 10 into consecutive parts are [10], [4, 3, 2, 1]. There are no repeated parts, so 10 is in the sequence.
%t A328369 Array[If[Or[PrimeQ@ #, IntegerQ@ Log2@ #], #, # Boole[Count[Tally@ Flatten@ Select[IntegerPartitions[#], Union@ Differences@ # == {-1} &], _?(Last@ # > 1 &)] == 0]] /. 0 -> Nothing &, 60] (* _Michael De Vlieger_, Nov 22 2019 *)
%Y A328369 Cf. A001227, A118236 (complement), A286000, A286001, A299765, A328365.
%K A328369 nonn
%O A328369 1,2
%A A328369 _Omar E. Pol_, Nov 04 2019