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,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

J. Browkin, Groebner basis.

Example

a(1)=32 because 1024=32^2

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

Crossrefs

Cf. A134844, A134845.

Sequence in context: A242956 A085259 A054032 * A134844 A151983 A022402

Adjacent sequences: A134840 A134841 A134842 * A134844 A134845 A134846

Keyword

nonn,base

Author

Artur Jasinski, Nov 13 2007

Status

approved