1,2
Do[ If[ PrimeQ[ 4^n + n ], Print[ n ] ], {n, 0, 3000} ]
Sequence in context: A058039 A013581 A133997 * A082702 A065917 A053624
Adjacent sequences: A057906 A057907 A057908 * A057910 A057911 A057912
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 16 2000