A134843 Numbers n not divisible by 10 such that n^2 contains a 0.
32, 33, 45, 47, 48, 49, 51, 52, 53, 55, 64, 71, 78, 84, 95, 97, 98, 99, 101, 102, 103, 104, 105, 138, 142, 143, 144, 145, 147, 148, 149, 151, 152, 153, 155, 174, 175, 176, 179, 195, 197, 198, 199, 201, 202, 203, 205, 217, 224, 225, 226, 241, 243, 245, 246, 247
Offset: 1
Examples
a(1)=32 because 1024=32^2
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
- J. Browkin, Groebner basis.
Programs
-
Mathematica
a = {}; Do[Do[Do[k = 100s + 10n + m; w = IntegerDigits[k^2]; If[MemberQ[w, 0], AppendTo[a, k]], {m, 1, 9}], {n, 0, 9}], {s, 0, 9}]; Union[a] Select[Range[300],Mod[#,10]!=0&&DigitCount[#^2,10,0]>0&] (* Harvey P. Dale, Nov 15 2023 *)
Comments