|
%I #9 Aug 04 2014 06:14:28
%S 0,1,121,6889,10201,69169,1002001,5221225,100020001,109181601,
%T 522808225,602555209,10000200001,62188888129,1000002000001,
%U 1212225222121,100000020000001,10000000200000001,10022212521222001,12102202520220121
%N Strobogrammatic squares: the same upside down (calculator-style numerals).
%C Subsequence of squares in A018846. - _Michel Marcus_, Aug 04 2014
%o (PARI) is_A018846(n, t=Vec("012..59.86"))={ apply(x->t[eval(x)+1], n=Vec(Str(n)))==vecextract(n, "-1..1"); }
%o lista(nn) = {for(n=0, nn, if (is_A018846(n^2), print1(n^2, ", ")));} \\ _Michel Marcus_, Aug 04 2014
%K nonn,base
%O 1,3
%A _David W. Wilson_
|
