login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A134843
Numbers n not divisible by 10 such that n^2 contains a 0.
15
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
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
Sequence in context: A242956 A085259 A054032 * A134844 A151983 A022402
KEYWORD
nonn,base
AUTHOR
Artur Jasinski, Nov 13 2007
STATUS
approved