%I #6 Aug 17 2018 10:48:05
%S 1,3,5,7,9,11,13,19,23,27,31,69,81,111,113,119,127,137,181,187,237,
%T 269,273,277,281,311,461,463,539,661,673,677,689,819,831,1019,1027,
%U 1111,1113,1119,1127,1137,1269,1277,1287,1361,1369,1377,1863,1969
%N Odd n such that in n^2 the parity of digits alternates.
%H Giovanni Resta, <a href="/A030155/b030155.txt">Table of n, a(n) for n = 1..10000</a>
%t altQ[n_] := n < 10 || Union[Total /@ Partition[ Mod[ IntegerDigits@n, 2], 2, 1]] == {1}; Select[ Range[1, 2000, 2], altQ[#^2] &] (* _Giovanni Resta_, Aug 16 2018 *)
%Y Cf. A030151, A030152, A030156, A030157, A030158.
%K nonn,base
%O 1,2
%A _Patrick De Geest_
%E Offset changed by _Giovanni Resta_, Aug 16 2018
|