%I #10 Jul 14 2022 14:59:43
%S 1,7,18,34,81,189,616,783,874,3010,4141,4347,5452,6943,8323,12145,
%T 14707,18361,52345,69472,74563,78943,96727,129618,147258,163456,
%U 214183,232105,250747,258727,270109,276723,278389,307476,309232,381616,389470,436183,450925
%N Heptagonal numbers (A000566) in which parity of digits alternates.
%C Intersection of A000566 and A030141. - _Felix Fröhlich_, Jan 03 2018
%H Harvey P. Dale, <a href="/A297646/b297646.txt">Table of n, a(n) for n = 1..500</a>
%e 6943 is in the sequence because 6, 9, 4 and 3 have even and odd parity alternately.
%t Join[{1,7},Select[PolygonalNumber[7,Range[1000]],Union[Abs[Differences[ Boole[ OddQ[ IntegerDigits[ #]]]]]] =={1}&]] (* _Harvey P. Dale_, Jul 14 2022 *)
%o (PARI)
%o is_alt(n) = m=n; e=n%10; n\=10; while(n>0, f=n%10; if(e%2==f%2, return, e=f; n\=10)); return(m)
%o select(is_alt, vector(1000, n, (5*n^2-3*n)/2))
%Y Cf. A297644, A297645, A297647.
%Y Cf. A000566, A030141, A030152, A030160, A068882.
%K nonn,base
%O 1,2
%A _Colin Barker_, Jan 02 2018