A340164 -id:A340164 - cp's OEIS frontend

A339996 Numbers whose square is rotationally ambigrammatic with no trailing zeros.

0, 1, 3, 4, 9, 13, 14, 31, 33, 41, 83, 99, 103, 104, 109, 141, 247, 263, 264, 283, 301, 303, 333, 401, 436, 437, 446, 447, 781, 813, 836, 901, 947, 949, 954, 959, 999, 1003, 1004, 1009, 1053, 1054, 1291, 1349, 1367, 2467, 2486, 2609, 2849, 2949, 2986, 3001

Offset: 1

Philip Mizzi, Dec 25 2020

A rotationally ambigrammatic number (A045574) is one that can be rotated by 180 degrees resulting in a readable, most often new number. Such numbers, by definition, can only contain the digits 0, 1, 6, 8, 9.
If the number once rotated happens to be the same number it is a strobogrammatic number (A000787); such numbers form a subset of the ambigrammatic numbers.
Numbers (such as 10) whose square has trailing zeros have been excluded because the rotation of such a number by 180 degrees would result in a number with leading zeros. Typically this is not the way we write numbers.
The numbers 14 and 31 are interesting numbers in this sequence in that when their square is rotated 180 degrees, the square root results in the other number. I believe this is unique to only these two numbers.

			13^2 = 169. A rotationally ambigrammatic number. Hence, 13 is a term.
15^2 = 225. Not rotationally ambigrammatic and hence 15 is not a term.
10^2 = 100. This number has trailing zeros, so under this definition of rotationally ambigrammatic, 10 is not a term.

Wikipedia, Ambigram

Cf. A045574, A340164 (squares).

Select[Range[0, 4001], (# == 0 || !Divisible[#, 10]) && AllTrue[IntegerDigits[#^2], MemberQ[{0, 1, 6, 8, 9}, #1] &] &] (* Amiram Eldar, Dec 26 2020 *)

isra(n) = (n%10) && (!setminus(Set(Vec(Str(n))), Vec("01689"))) || !n; \\ A045574
isok(n) = isra(n^2); \\ Michel Marcus, Dec 27 2020

a(n) = sqrt(A340164(n)).

cp's OEIS Frontend

A339996 Numbers whose square is rotationally ambigrammatic with no trailing zeros.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula