A111229 - OEIS

%I #8 Mar 17 2023 01:49:21

%S 1,3,10,5,2,57,8,11,20,9,17,97,49,13,103,27,4,113,23,25,40,53,41,99,

%T 51,61,26,33,7,105,39,83,76,37,180,119,29,45,166,31,6,305,50,87,242,

%U 163,79,169,139,89,179,117,121,187,91,115,70,149,30,195,151,73,270,171,131,175

%N Where n appears in A111267.

%H Donovan Johnson, <a href="/A111229/b111229.txt">Table of n, a(n) for n = 1..2000</a>

%p INVERSE := proc(a) local b,c,i,n,hit,ulim; if whattype(a) <> list then RETURN([]); fi: c:=sort(a); b:=[]; ulim:=min(1000,c[nops(c)]); for n from c[1] to ulim do hit:=0; for i from 1 to nops(a) do if a[i]=n then b:=[op(b),i]; hit:=1; break; fi; od; if hit = 0 then RETURN(b); fi; od; end:

%Y Cf. A111267.

%K nonn

%O 1,2

%A _N. J. A. Sloane_, Nov 03 2005