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

1, 2, 3, 5, 8, 10, 17, 20, 21, 28, 29, 37, 42, 48, 49, 51, 59, 65, 73, 76, 81, 84, 91, 92, 100, 112, 113, 114, 118, 122, 125, 128, 132, 147, 160, 163, 169, 170, 173, 175, 182, 188, 197, 220, 221, 222, 228, 233, 236, 242, 253, 265, 270, 278, 282, 283, 286, 293, 297

Offset: 1

Author

Giovanni Teofilatto, Oct 03 2010

Keywords

• easy
• nonn

Links

• Nathaniel Johnston, Table of n, a(n) for n = 1..10000

Programs

Maple

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

Extensions

Essentially all entries corrected by R. J. Mathar, Oct 12 2010