cp's OEIS Frontend

A255417 Row 7 of Ludic array A255127.

%I A255417 #13 Nov 18 2024 07:36:25
%S A255417 17,101,187,281,367,461,547,629,721,809,901,989,1079,1169,1253,1343,
%T A255417 1433,1523,1613,1697,1783,1873,1963,2051,2143,2231,2311,2407,2491,
%U A255417 2587,2671,2759,2851,2935,3029,3115,3205,3295,3383,3467,3557,3647,3737,3823,3913,4001,4091,4177,4271,4357,4447,4537,4619,4711,4799,4885,4979,5065,5155,5243
%N A255417 Row 7 of Ludic array A255127.
%H A255417 Antti Karttunen, <a href="/A255417/b255417.txt">Table of n, a(n) for n = 1..10001</a>
%F A255417 a(n) = a(n-5760) + 510510 = a((n-1)%5760 + 1) + 510510*floor((n-1)/5760). - _M. F. Hasler_, Nov 10 2024 and Nov 17 2024
%o A255417 (Scheme) (define (A255417 n) (A255127bi 7 n)) ;; Code for A255127bi given in A255127.
%o A255417 (PARI) my(L=vector(170170,x,3*x+2^(x%2)), m(n, k)=2^(n\/k*k)\(2^k-1)); for(i=3, 6, L=vecextract(L, 2^#L-m(#L, L[1])-1)); L255417=vecextract(L, m(#L, L[1]));
%o A255417 A255417(n)=n--\5760*510510+L255417[n%5760+1] \\ _M. F. Hasler_, Nov 17 2024
%o A255417 (Python)
%o A255417 def A255417(n, S=510510, P=5760):
%o A255417     try: n -= 1; return A255417.L[n]
%o A255417     except IndexError: return A255417.L[n%P] + n//P*S
%o A255417     except AttributeError: L = [x+5-x%2 for x in range(0, S, 3)]
%o A255417     for k in L[:4]: L = [x for i,x in enumerate(L) if i%k]
%o A255417     A255417.L = L[::17]; return A255417(n+1) # _M. F. Hasler_, Nov 17 2024
%Y A255417 Row 7 of A255127. See A255416 for row 6 and A255418 for row 8.
%K A255417 nonn
%O A255417 1,1
%A A255417 _Antti Karttunen_, Feb 22 2015