A346652 Hexagonal pandigitals.

1062489753, 1256984730, 1520843976, 1952843760, 1957346028, 2367098415, 2718609453, 2735891406, 2764518903, 2854316790, 3026847915, 3574816290, 3694517820, 3807459216, 3842970615, 4039521786, 4075916328, 4076819253, 4216879530, 4523098716, 4703869521

Offset

1,1

Links

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

Formula

Intersection of A000384 (hexagonal numbers) and A171102 (infinite pandigital numbers).

Mathematica

h[n_] := n*(2*n - 1); Select[h /@ Range[50000], Length @ DeleteDuplicates @ IntegerDigits[#] == 10 &] (* Amiram Eldar, Aug 19 2021 *)

Prog

(SageMath)
A000384 = list(int(n*(2*n-1)) for n in range(0, 1000000))
def haspan(s): return any(len(set(s[i:i+10]))==10 for i in range(len(s)-9))
A346652 = list(elem for elem in A000384 if haspan(str(elem)))

Crossrefs

Cf. A000384, A171102.

Sequence in context: A221262 A115940 A241812 * A049446 A322684 A322694

Adjacent sequences: A346649 A346650 A346651 * A346653 A346654 A346655

Keyword

nonn,base,less

Author

Dumitru Damian, Aug 19 2021

Status

approved