A034905 Numbers whose square contains no loops in its digits (assumes 1, 2, 3, 5, 7 have no loops and 0, 4, 6, 8, 9 do).

1, 5, 11, 15, 35, 39, 61, 85, 111, 115, 165, 189, 235, 239, 335, 365, 389, 415, 461, 485, 611, 715, 1061, 1085, 1165, 1235, 1239, 1489, 1585, 1665, 1765, 1885, 2261, 2285, 2715, 3335, 3365, 3489, 3511, 3515, 3635, 3711, 3915, 3939, 3965, 4139, 4211, 4715

Offset

1,2

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Example

13^2 = 169 contains a 6 and a 9, so 13 does not belong to the sequence.

Mathematica

Select[Range[5000], ContainsAll[{1, 2, 3, 5, 7}, IntegerDigits[#^2]]&] (* Giorgos Kalogeropoulos, Jul 30 2021 *)

Crossrefs

Cf. A031153, A001742.

Sequence in context: A137009 A340131 A290199 * A031153 A136976 A136975

Adjacent sequences: A034902 A034903 A034904 * A034906 A034907 A034908

Keyword

nonn,base

Author

J. Lowell

Status

approved