A180108 - OEIS

%I #5 Jul 14 2015 00:16:22

%S 0,1,2,1,2,4,2,3,6,3,4,8,9,10,5,6,12,6,7,14,15,16,8,9,18,9,10,20,21,

%T 22,11,12,24,25,26,27,28,14,15,30,15,16,32,33,34,35,36,18,19,38,39,40,

%U 20,21,42,21,22,44,45,46,23,24,48,49,50,51,52,26,27,54,55,56,57,58,29,30

%N Integers where the primes are split into two consecutive numbers.

%C The even prime 2 is not split.

%e The prime 29 is split into 14 and 15.

%t f[n_] := If[ !PrimeQ@ n || n == 2, n, {(n - 1)/2, (n + 1)/2}]; Array[ f, 60, 0] // Flatten (* _Robert G. Wilson v_, Aug 15 2010 *)

%Y Cf. A000040, A002808.

%K base,nonn

%O 0,3

%A _Parthasarathy Nambi_, Aug 10 2010

%E More terms from _Robert G. Wilson v_, Aug 15 2010