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 A073674 #16 Dec 05 2013 19:55:31 %S A073674 1,3,5,7,9,15,19,25,27,53,43,11,33,49,17,29,95,37,13,31,23,41,47,63, %T A073674 81,35,51,69,113,45,57,21,67,75,55,107,73,137,131,231,61,103,39,115, %U A073674 59,145,91,101,205,125,77,227,93,129,127,161,201,167,97,165,141,155,169 %N A073674 Rearrangement of odd numbers such that every partial product + 2 is a prime. %e A073674 For 1, 3, 5, 7: 1+2 = 3, 1*3+2 = 5, 1*3*5+2 = 17, 1*3*5*7+2 = 107 are primes. - _Daniel Forgues_, Dec 20 2012 %t A073674 f[s_List] := Block[{k = 1, p = Times @@ s}, While[ MemberQ[s, k] || !PrimeQ[k*p + 2], k += 2]; Append[s, k]]; Nest[f, {1}, 62] (* _Robert G. Wilson v_, Dec 24 2012 *) %Y A073674 Cf. A083769. %Y A073674 Cf. A083566. %K A073674 nonn %O A073674 1,2 %A A073674 _Amarnath Murthy_, Aug 11 2002 %E A073674 More terms from _Sascha Kurz_, Feb 01 2003