%I #16 Oct 02 2021 08:06:05
%S 1348095672,1370854926,1394627850,1438602957,1627548930,3197480265,
%T 3281546907,3896427150,4687019352,4852973160,5169738420,5329461870,
%U 6281043795,6931274805,7938152640,7981423065,8347926501,8706193245,8735014926,9120345876,10492679835,10697154832
%N Pentagonal pandigitals.
%F Intersection of A000326 (pentagonal numbers) and A171102 (infinite pandigital numbers).
%t p[n_] := n*(3*n - 1)/2; Select[p /@ Range[85000], Length @ DeleteDuplicates @ IntegerDigits[#] == 10 &] (* _Amiram Eldar_, Aug 13 2021 *)
%o (Sage)
%o A000326 = list(int(n*(3*n-1)/2) for n in range(0,1000000))
%o def haspan(s): return any(len(set(s[i:i+10]))==10 for i in range(len(s)-9))
%o A346959 = list(elem for elem in A000326 if haspan(str(elem)))
%Y Cf. A000326, A171102.
%K nonn,base,less
%O 1,1
%A _Dumitru Damian_, Aug 13 2021
|