A346959 Pentagonal pandigitals.

1348095672, 1370854926, 1394627850, 1438602957, 1627548930, 3197480265, 3281546907, 3896427150, 4687019352, 4852973160, 5169738420, 5329461870, 6281043795, 6931274805, 7938152640, 7981423065, 8347926501, 8706193245, 8735014926, 9120345876, 10492679835, 10697154832

Offset

1,1

Links

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

Formula

Intersection of A000326 (pentagonal numbers) and A171102 (infinite pandigital numbers).

Mathematica

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

Prog

(Sage)
A000326 = list(int(n*(3*n-1)/2) 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))
A346959 = list(elem for elem in A000326 if haspan(str(elem)))

Crossrefs

Cf. A000326, A171102.

Sequence in context: A213161 A260874 A251358 * A068746 A343078 A345010

Adjacent sequences: A346956 A346957 A346958 * A346960 A346961 A346962

Keyword

nonn,base,less

Author

Dumitru Damian, Aug 13 2021

Status

approved