%I #9 Jul 31 2017 12:58:09
%S 1,3,4,7,6,5,8,9,10,13,24,41,26,51,64,151,276,335,446,219,550,451,
%T 1674,1685,2192,2667,9220,17647,3972,9221,17648,25311,35776,25339,
%U 147018,112397,146972,212667,243892,243871,963024,1263521,1838078,2380569,2380378
%N Let m = n-th number not divisible by 3 (A001651); a(n) = position of m in A065075, or -1 if never appears in A065075.
%C It is believed that a(n) is always > 0.
%H Lars Blomberg, <a href="/A230289/b230289.txt">Table of n, a(n) for n = 1..86</a>
%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%p read transforms; M:=100000; sp:=1; a:=[sp]; s:=sp;
%p for n from 2 to M do sp:=digsum(s); a:=[op(a),sp]; s:=s+sp; od:
%p b:=[]:
%p for n from 1 to 100 do
%p if (n mod 3) <> 0 then
%p if member(n,a,'p') then b:=[op(b),p] else b:=[op(b),-1]; fi;
%p fi;
%p od:
%p b;
%Y Cf. A065075, A001651.
%K nonn,base
%O 1,2
%A _N. J. A. Sloane_, Oct 17 2013
%E a(35)-a(45) from _Lars Blomberg_, Jul 31 2017