# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a069102
Showing 1-1 of 1

%I A069102 #11 Feb 21 2025 16:44:04
%S A069102 1,1,5,8,12,18,24,30,36,42,52,60,68,78,84,90,100,112,120,128,138,144,
%T A069102 152,162,172,186,198,204,210,216,222,240,258,268,276,288,300,308,320,
%U A069102 330,340,352,360,372,384,390,396,410,434,450,456,462,472,480,492,508
%N A069102 a(1) = 1; a(2) = 1; a(n) = Prime[n-1] + Prime[n-2] if n > 2.
%H A069102 Harvey P. Dale, <a href="/A069102/b069102.txt">Table of n, a(n) for n = 1..1000</a>
%e A069102 a(3) = Prime[2] + Prime[1] = 3 + 2 = 5.
%t A069102 Join[{1,1},Total/@Partition[Prime[Range[60]],2,1]] (* _Harvey P. Dale_, Feb 01 2024 *)
%o A069102 (PARI) print1("1,1,"); for(n=1,100,print1(prime(n)+prime(n+1)","))
%Y A069102 Cf. A001043, A011974.
%K A069102 nonn
%O A069102 1,3
%A A069102 _Joseph L. Pe_, Apr 06 2002
%E A069102 More terms from _Ralf Stephan_, Mar 20 2003

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE