A275028 Squares whose digital rotation is also a square.

1, 121, 196, 529, 625, 961, 6889, 10201, 69169, 1002001, 1022121, 1212201, 5221225, 100020001, 100220121, 109181601, 121022001, 522808225, 602555209, 10000200001, 10002200121, 10020210201, 10201202001, 12100220001, 62188888129, 1000002000001

Offset: 1

Author

Seiichi Manyama, Nov 12 2016

Keywords

• nonn
• base

Comments

From Jon E. Schoenfield, Nov 13 2016: (Start)

It is assumed that the rotation changes each digit 6 to a 9 and vice versa, and that the digits 0, 1, 2, 5, and 8 are unchanged by the rotation, as is the case with a seven-segment display in which the digits are formed basically as follows:

.

| | | | | || | | | || |_|

|| | | | | | || | || _|

(End)

Sequence is infinite since (10^m+1)^2 for m>0 are terms. Leading zeros after rotation are not allowed, as otherwise 10^m would be terms. All terms start and end with digits 1, 5, 6 or 9. - Chai Wah Wu, Apr 09 2024

Examples

			961 becomes 196 under such a rotation.
		

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..164
• Prime Curios, 31

Crossrefs

Cf. A178316.

Programs

Mathematica

Select[Range[10^6]^2, If[Or[IntersectingQ[#, {3, 4, 7}], Last@# == 0], False, IntegerQ@ Sqrt@ FromDigits[Reverse@ # /. {6 -> 9, 9 -> 6}]] &@ IntegerDigits@ # &] (* Michael De Vlieger, Nov 14 2016 *)

Python

from itertools import count, islice
from sympy.ntheory.primetest import is_square
def A275028_gen(): # generator of terms
    r, t = ''.maketrans('69','96'), set('0125689')
    for l in count(1):
        if l%10:
            m = l**2
            if set(s:=str(m)) <= t and is_square(int(s[::-1].translate(r))):
                yield m
A275028_list = list(islice(A275028_gen(),10)) # Chai Wah Wu, Apr 09 2024