A331172 - OEIS

%I #7 Jan 12 2020 23:50:46

%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,12,13,14,15,16,17,24,25,

%T 26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,42,

%U 43,44,45,46,47,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81

%N a(n) = min(n, A289234(n)), where A289234 is primorial base "reciprocal" flip.

%C For all i, j:

%C   a(i) = a(j) => A267263(i) = A267263(j).

%C For all i, j > 0:

%C   a(i) = a(j) => A053669(i) = A053669(j).

%H Antti Karttunen, <a href="/A331172/b331172.txt">Table of n, a(n) for n = 0..30029</a>

%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>

%F a(n) = min(n, A289234(n)).

%o (PARI)

%o A289234(n) = { my(pr=1, p=2, v=0); while(n>0, my (d=n%p); if(d>0, v += pr * lift(1/Mod(d, p))); pr *= p; n \= p; p = nextprime(p+1)); return(v); }; \\ From A289234.

%o A331172(n) = min(n, A289234(n));

%Y Cf. A053669, A267263, A289234.

%Y Cf. also A286626, A328477, A330740, A331171.

%K nonn,base

%O 0,3

%A _Antti Karttunen_, Jan 12 2020