|
%I #7 Jan 25 2022 12:25:10
%S 3,15,78,115,155,310,231,911,619,691,464,863,1294,1616,3240,2235,1240,
%T 2240,3472,3183,4479,2766,4148,9212,6588,4567,2587,2588,4846,6479,
%U 3231,7763,3744,3743,2479,2480,6367,7440,12936,2768,9914,9395,13415,11059,9792
%N Smallest m such that A070965(m) = -n.
%F A070965(a(n)) = -n and A070965(m) <> -n for m < a(n);
%F A070965(A227953(n)) = n.
%o (Haskell)
%o import Data.List (elemIndex); import Data.Maybe (fromJust)
%o a227954 = (+ 1) . fromJust . (`elemIndex` a070965_list) . negate
%Y Cf. A070965, A227953.
%K nonn
%O 0,1
%A _Reinhard Zumkeller_, Aug 01 2013
|
