A235722 Squares which have one or more occurrences of exactly seven different digits.
1034289, 1046529, 1048576, 1054729, 1056784, 1073296, 1075369, 1085764, 1238769, 1247689, 1354896, 1380625, 1382976, 1432809, 1507984, 1605289, 1607824, 1630729, 1695204, 1708249, 1750329, 1763584, 1803649, 1827904, 1836025, 1890625, 1946025, 1974025
Offset: 1
Examples
1247689 is in the sequence because 1247689 = 1117^2 and 1247689 contains exactly seven different digits: 1, 2, 4, 6, 7, 8 and 9.
Links
- Colin Barker, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
sddQ[n_]:=Count[DigitCount[n],?(#>0&)]==7; Select[Range[1001,1450]^2, sddQ] (* _Harvey P. Dale, Mar 12 2015 *)
-
PARI
s=[]; for(n=1, 10000, if(#vecsort(eval(Vec(Str(n^2))),,8)==7, s=concat(s, n^2))); s
Formula
a(n) = A054035(n)^2.
Comments