A242422 Numbers in whose prime factorization the indices of primes sum to a triangular number.
1, 2, 5, 6, 8, 13, 21, 22, 25, 27, 28, 29, 30, 36, 40, 46, 47, 48, 57, 64, 73, 76, 85, 86, 91, 102, 107, 117, 121, 123, 130, 136, 142, 147, 151, 154, 156, 164, 165, 175, 185, 189, 196, 197, 198, 201, 206, 208, 210, 217, 220, 222, 225, 243, 250, 252, 257, 264, 268, 270, 279, 280, 296, 298, 299, 300
Offset: 1
Keywords
Examples
1 is present as it has an empty factorization, for which the sum of prime indices is zero, and zero is also a triangular number. 2 = p_1 is present as 1 is a triangular number. 6 = p_1 * p_2 is present, as 1+2 = 3 is a triangular number. 300 = 2*2*3*5*5 = p_1 * p_1 * p_2 * p_3 * p_3 is present, as 1+1+2+3+3 = 10 is a triangular number. Any primorial number p_1 * p_2 * p_3 * ... * p_n is present, as 1+2+3+...+n is by definition a triangular number. The sequence of all integer partitions whose Heinz numbers are in the sequence begins: (), (1), (3), (2,1), (1,1,1), (6), (4,2), (5,1), (3,3), (2,2,2), (4,1,1), (10), (3,2,1), (2,2,1,1), (3,1,1,1), (9,1), (15), (2,1,1,1,1), (8,2), (1,1,1,1,1,1), (21), (8,1,1), (7,3), (14,1), (6,4). - _Gus Wiseman_, Nov 13 2018
References
- Martin Gardner, Colossal Book of Mathematics, Chapter 34, Bulgarian Solitaire and Other Seemingly Endless Tasks, pp. 455-467, W. W. Norton & Company, 2001.
Links
- Antti Karttunen, Table of n, a(n) for n = 1..2455
- Ethan Akin and Morton Davis, "Bulgarian solitaire", American Mathematical Monthly 92 (4): 237-250. (1985).
- Wikipedia, Bulgarian solitaire
Crossrefs
Programs
-
Mathematica
triQ[n_]:=Module[{k,i},For[k=n;i=1,k>0,i++,k-=i];k==0]; Select[Range[100],triQ[Total[Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]*k]]]&] (* Gus Wiseman, Nov 13 2018 *)
Comments