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.

A287662 a(n) is the smallest positive integer not already in sequence such that a(1) + ... + a(n) is a prime power, with a(1) = 1.

This page as a plain text file.
%I A287662 #4 Jun 02 2017 00:30:01
%S A287662 1,2,4,6,3,7,8,10,12,11,9,16,14,18,28,20,22,32,33,13,24,38,30,36,34,
%T A287662 26,42,48,40,44,46,50,60,52,68,54,58,5,15,64,78,56,66,70,74,76,84,62,
%U A287662 72,82,90,80,55,21,92,106,104,88,98,100,96,108,102,86,114,94,116,118,122,120,130,126,107,31,132,138
%N A287662 a(n) is the smallest positive integer not already in sequence such that a(1) + ... + a(n) is a prime power, with a(1) = 1.
%C A287662 It appears that the sequence contains all even numbers.
%e A287662 a(8) = 10 because 1, 2, 3, 4, 6, 7 and 8 have already been used in the sequence, 1 + 2 + 4 + 6 + 3 + 7 + 8 + 5 = 36 is not prime power, 1 + 2 + 4 + 6 + 3 + 7 + 8 + 9 = 40 is not prime power while 1 + 2 + 4 + 6 + 3 + 7 + 8 + 10 = 41 is a prime power.
%t A287662 t = {1}; Do[i = 1; While[! PrimePowerQ[Total[t] + i] || MemberQ[t, i], i++]; AppendTo[t, i], {75}]; t
%Y A287662 Cf. A000961, A054408, A073659, A073879, A075562, A084693, A284049.
%K A287662 nonn
%O A287662 1,2
%A A287662 _Ilya Gutkovskiy_, May 29 2017