OFFSET
1,1
COMMENTS
See the comments in A250041 which all apply, except for the setting of the base, b=4. In particular, they define the property RTNC(b).
If x =12*k+j, 0 <= j <= 11, then x is in the sequence iff either j is in {0,2,3} and 3*k is in the sequence, or j is in {4,6} and 3*k+1 is in the sequence, or j is in {8,10} and 3*k+2 is in the sequence. - Robert Israel, Dec 22 2014
LINKS
Stanislav Sykora, Table of n, a(n) for n = 1..10000
Stanislav Sykora, PARI/GP scripts for genetic threads, with code and comments.
Wikipedia, Coprime integers
MAPLE
S:= {}:
for n from 1 to 1000 do
m:= floor(n/4);
if igcd(m, n) = 1 then next fi;
if m > 0 and not member(m, S) then next fi;
S:= S union {n}
od:
S; # if using Maple 11 or earlier, uncomment the next line
# sort(convert(S, list)); # Robert Israel, Dec 22 2014
PROG
(PARI) See the link.
(PARI) is_rtnc(n, b=4) = {while (((m=gcd(n\b, n)) != 1), if (m == 0, return (1)); n = n\b; ); return (0); } \\ Michel Marcus, Jan 22 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Stanislav Sykora, Dec 07 2014
STATUS
approved