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.
%I A168489 #65 Nov 24 2022 04:20:50 %S A168489 7,11,19,23,31,35,43,47,55,59,67,71,79,83,91,95,103,107,115,119,127, %T A168489 131,139,143,151,155,163,167,175,179,187,191,199,203,211,215,223,227, %U A168489 235,239,247,251,259,263,271,275,283,287,295,299,307,311,319,323,331,335 %N A168489 Numbers that are congruent to {7,11} mod 12. %C A168489 From _Arkadiusz Wesolowski_, Mar 16 2014: (Start) %C A168489 Odd numbers m for which 2/m is not equal to 1/x + 1/y with x = 2*floor((m + 1)/4) + 1 and an integer y > x. %C A168489 The primes together with 3 are in A002145. (End) %C A168489 Odd numbers not of the form (4j+1)*3^k, {j,k>=0}. - _Bob Selcoe_, Aug 30 2015 %C A168489 Nonnegative k for which k == 3 (mod 4) and k^2 == 1 (mod 3). - _Bruno Berselli_, Apr 26 2018 %C A168489 Numbers that are not divisible by their digital root in base 5. - _Amiram Eldar_, Nov 24 2022 %H A168489 Vincenzo Librandi, <a href="/A168489/b168489.txt">Table of n, a(n) for n = 1..1000</a> %H A168489 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (1,1,-1). %F A168489 a(n) = 12*n - a(n-1) - 6 for n>1, a(1)=7. %F A168489 From _R. J. Mathar_, Mar 21 2010: (Start) %F A168489 a(n) = 6*n - (-1)^n. %F A168489 a(n) = a(n-1) + a(n-2) - a(n-3). %F A168489 G.f.: x*(7 + 4*x + x^2)/ ((1+x) * (x-1)^2). (End) %F A168489 E.g.f.: 1 + 6*x*exp(x) - exp(-x). - _G. C. Greubel_, Aug 30 2015 %F A168489 Sum_{n>=1} (-1)^(n+1)/a(n) = sqrt(3)*Pi/12 - log(2+sqrt(3))/(2*sqrt(3)). - _Amiram Eldar_, Dec 30 2021 %t A168489 LinearRecurrence[{1, 1, -1}, {7, 11, 19}, 60] (* or *) Select[Range[350], MemberQ[{7, 11}, Mod[#, 12]]&] (* _Harvey P. Dale_, Nov 10 2011 *) %t A168489 Rest[CoefficientList[Series[x (7 + 4 x + x^2)/((1 + x) (x - 1)^2), {x, 0, 56}], x] ] (* _Ray Chandler_, Jul 07 2015 *) %t A168489 RecurrenceTable[{a[n] == 12 n - 6 - a[n-1], a[1]==7}, a, {n, 1, 100}] (* _G. C. Greubel_, Aug 30 2015 *) %o A168489 (Magma) [6*n-(-1)^n: n in [1..60]]; // _Vincenzo Librandi_, Aug 10 2012 %o A168489 (PARI) x='x+O('x^100); Vec(x*(7+4*x+x^2)/((1+x)*(x-1)^2)) \\ _Altug Alkan_, Oct 22 2015 %Y A168489 Cf. A002145, A239233. %K A168489 nonn,easy %O A168489 1,1 %A A168489 _Vincenzo Librandi_, Nov 27 2009