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.

A257312 a(1) = 6; a(2) = 7; for n > 2, a(n) is the smallest number of the form prime + 4 not already used which shares a factor with a(n-1).

This page as a plain text file.
%I A257312 #15 Apr 24 2015 10:56:31
%S A257312 6,7,21,9,15,27,33,11,77,35,45,51,17,153,57,63,75,65,105,87,93,111,
%T A257312 117,135,141,47,423,171,177,183,195,143,231,161,23,437,285,155,185,
%U A257312 215,245,203,261,201,237,243,255,267,273,287,41,861,297,275,315,321,107
%N A257312 a(1) = 6; a(2) = 7; for n > 2, a(n) is the smallest number of the form prime + 4 not already used which shares a factor with a(n-1).
%C A257312 Analog of EKG-sequence (A064413) on the numbers of the form prime + 4.
%C A257312 Conjecture: the sequence {a(n)-4} is a permutation of primes (A000040).
%H A257312 Peter J. C. Moses, <a href="/A257312/b257312.txt">Table of n, a(n) for n = 1..1000</a>
%t A257312 f[n_] := Block[{o = 2^2, s, p, k}, s = {o + 2, o + 3}; For[k = 3, k <= n, k++, p = 2; While[GCD[p + o, s[[k - 1]]] == 1 || MemberQ[s, p + o], p = NextPrime@ p]; AppendTo[s, p + o]]; s]; f@ 57 (* _Michael De Vlieger_, Apr 20 2015 *)
%Y A257312 Cf. A000040, A064413, A257311, A257313, A257314, A257315.
%K A257312 nonn
%O A257312 1,1
%A A257312 _Vladimir Shevelev_, Apr 20 2015
%E A257312 More terms from _Peter J. C. Moses_, Apr 20 2015