1,2
Do[ If[ PrimeQ[ 4^n - n ], Print[ n ] ], {n, 0, 3000} ]
Adjacent sequences: A057905 A057906 A057907 this_sequence A057909 A057910 A057911
Sequence in context: A052468 A055786 A001790 this_sequence A120828 A077784 A145640
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 16 2000
Search completed in 0.002 seconds