A118706 Triangular numbers whose digits in base 12 are contained in {1,5,7,11}.
1, 91, 1891, 3403, 403651, 4388203, 4468555, 41710411, 201553003, 213283531, 410970115, 428264011, 633021571, 642342403, 703181251, 4913725411, 28007409475, 41103462403, 90151709131, 90294438403, 337594212451, 443352832075, 1452321801451, 1483280069635, 4435473488491
Offset: 1
Examples
a(4) = 3403 = 1E77 in base 12.
Programs
-
Maple
L:=[]: pd:={1,5,7,11}: for w to 1 do for n from 1 to 10^6 do t:=n*(n+1)/2; lod:=convert(t,base,12); sod:=convert(lod,set); if sod subset pd then L:=[op(L),[n,t]] fi; od od; L;
-
Mathematica
Select[Accumulate[Range[822000]],SubsetQ[{1,5,7,11},IntegerDigits[ #,12]]&] (* Harvey P. Dale, Oct 18 2019 *)
Formula
a(n) = t if t is the n-th triangular number such that S subset {1,5,7,11}, where S is the set of digits of t in base 12.
Extensions
a(22)-a(25) from Amiram Eldar, Aug 02 2024
Comments