OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 1000: # to get all terms <= N-1
V:= Vector(N):
for k from 1 to floor(N/3) do
R1:= [seq(i, i=3*k .. N, 2*k)];
V[R1]:= map(`+`, V[R1], 1);
R2:= [seq(i, i=3*k+1 .. N, 2*k+1)];
V[R2]:= map(`+`, V[R2], 1);
R3:= [seq(i, i=3*k+2 .. N, 2*k+1)];
V[R3]:= map(`+`, V[R3], 1);
od:
select(t -> V[t]=V[t+1], [$1..N-1]); # Robert Israel, Sep 26 2016
MATHEMATICA
at[n_] := Count[Flatten[Quotient[#, Rest[Select[Divisors[#], OddQ]]] & /@ (2 n + Range[-1, 1])], Except[1]]; Select[Range[232], at[#] == at[# + 1] &] (* Jayanta Basu, Jul 01 2013 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Aug 31 2002
STATUS
approved