A018849 Strobogrammatic squares: the same upside down (calculator-style numerals).
0, 1, 121, 6889, 10201, 69169, 1002001, 5221225, 100020001, 109181601, 522808225, 602555209, 10000200001, 62188888129, 1000002000001, 1212225222121, 100000020000001, 10000000200000001, 10022212521222001, 12102202520220121
Offset: 1
Programs
-
PARI
is_A018846(n, t=Vec("012..59.86"))={ apply(x->t[eval(x)+1], n=Vec(Str(n)))==vecextract(n, "-1..1"); } lista(nn) = {for(n=0, nn, if (is_A018846(n^2), print1(n^2, ", ")));} \\ Michel Marcus, Aug 04 2014
Comments