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

Author

Artur Jasinski, Nov 13 2007

Keywords

• nonn
• base

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.

Crossrefs

Cf. A134844, A134845.

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 *)