cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A085249 Terms k of A002977 such that both (k-1)/2 and (k-1)/3 are also terms of A002977.

This page as a plain text file.
%I A085249 #10 May 07 2022 09:26:35
%S A085249 31,175,1039,1471,2191,4495,6223,8815,13135,20479,22639,26815,30703,
%T A085249 36031,37327,45967,52879,53743,54031,66703,78799,89023,108175,122863,
%U A085249 125887,132799,135679,136687,160879,177151,178159,181183,184207,188095
%N A085249 Terms k of A002977 such that both (k-1)/2 and (k-1)/3 are also terms of A002977.
%H A085249 Amiram Eldar, <a href="/A085249/b085249.txt">Table of n, a(n) for n = 1..1000</a>
%e A085249 A002977(51) = 175: (175-1)/2 = 82 = A002977(28) and (175-1)/3 = 58 = A002977(22), therefore 175 is a term.
%t A085249 seq[max_] := Module[{s = Flatten[NestWhileList[Flatten[{2*# + 1, 3*# + 1}] &, 1, Min[#1] < max &]], t}, t = Union[Select[s, # <= max &]]; Select[t, MemberQ[t, (# - 1)/2] && MemberQ[t, (# - 1)/3] &]]; seq[200000] (* _Amiram Eldar_, May 07 2022 *)
%Y A085249 Subsequence of A016921 and A002977.
%K A085249 nonn
%O A085249 1,1
%A A085249 _Reinhard Zumkeller_, Aug 11 2003
%E A085249 More terms from _Ray Chandler_, Sep 06 2003