%I
%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(n1)+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
