login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

A designed sequence of primes that seems to be chaotic based on the sum of the sequence with a prime and one: a(n+1)->Abs(a(n)+Prime[n]+1).
0

%I #2 Mar 30 2012 17:34:21

%S 2,7,13,11,7,3,13,5,17,11,19,17,23,19,31,41,37,43,53,47,71,59,61,97,

%T 103,113,79,137,101,139,151,157,173,137,199,149,211,223,173,227,181,

%U 197,263,199,211,283

%N A designed sequence of primes that seems to be chaotic based on the sum of the sequence with a prime and one: a(n+1)->Abs(a(n)+Prime[n]+1).

%F a(n) =If Prime Abs[a(n-1)+Prime[n-1]+1]

%t a[0] = 2; a[1] = 7; a[2] = 13; a[n_] := a[n] = Abs[a[n - 1] - Prime[n - 1] + 1] a0 = Flatten[Table[If[PrimeQ[a[n]], a[n], {}], {n, 0, 100}]]

%K nonn,uned

%O 1,1

%A _Roger L. Bagula_, Jul 01 2007