A181100 - OEIS

%I #8 Feb 18 2019 04:57:00

%S 1,2,3,5,8,10,17,20,21,28,29,37,42,48,49,51,59,65,73,76,81,84,91,92,

%T 100,112,113,114,118,122,125,128,132,147,160,163,169,170,173,175,182,

%U 188,197,220,221,222,228,233,236,242,253,265,270,278,282,283,286,293,297

%N Numbers k such that A028260(k) + 1 is prime.

%H Nathaniel Johnston, <a href="/A181100/b181100.txt">Table of n, a(n) for n = 1..10000</a>

%p A181100 := proc(n) option remember: local k: if(n=1)then return 1: fi: for k from procname(n-1)+1 do if(isprime(A028260(k)+1))then return k: fi: od: end: seq(A181100(n),n=1..59); # _Nathaniel Johnston_, May 27 2011

%K easy,nonn

%O 1,2

%A _Giovanni Teofilatto_, Oct 03 2010

%E Essentially all entries corrected by _R. J. Mathar_, Oct 12 2010