Search: id:A030152 Results 1-1 of 1 results found. %I A030152 %S A030152 0,1,4,9,16,25,36,49,81,121,169,256,361,529,676,729,961,1296,4761,5476, %T A030152 6561,7056,9216,12321,12769,14161,16129,18769,32761,34969,41616,56169, %U A030152 69696,72361,74529,76729,78961,87616,96721,147456,163216,181476,212521 %N A030152 Squares in which parity of digits alternates. %e A030152 1296 is a term as 1, 2, 9 and 6 have odd and even parity alternately. %p A030152 i := 0:for a from 1 to 1000 do b := a^2:g := ceil(log(b+1)/log(10)):iss := true:for j from 1 to g-1 do if((b mod 2)=1) then if((floor(b/10^j) mod 2)=((-1)^(j+1)+1)/2) then iss := false:end if:else if((floor(b/ 10^j) mod 2)=((-1)^j+1)/2) then iss := false:end if:end if:end do: if(iss=true) then i := i+1:c[i] := b:end if:end do:q := seq(c[k], k=1..i-1); - Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Mar 23 2002 %Y A030152 Cf. A030144. %Y A030152 Sequence in context: A110723 A084617 A068879 this_sequence A030288 A030154 A122541 %Y A030152 Adjacent sequences: A030149 A030150 A030151 this_sequence A030153 A030154 A030155 %K A030152 nonn,base %O A030152 0,3 %A A030152 Patrick De Geest (pdg(AT)worldofnumbers.com) %E A030152 Edited by N. J. A. Sloane, Aug 31 2009 at the suggestion of R. J. Mathar Search completed in 0.001 seconds