0,3

{n,2^n+5^n}: {0,2}, {1,7}, {2,29}, {3,133}, {4,641}, {5,3157}, {6,15689}, {7,78253}, {9,1953637}, {10,9766649}, {12,244144721}, {16,152587956161}, {17,762939584197}, {18,3814697527769}, {30,931322574616552257449}, {37,72759576141834396472156597}, {58,34694469519536141888238777858214286477369}.

Do[p=2^n+5^n; If[FreeQ[IntegerDigits[p], 0], Print[{n, p}]]], {n, 0, 2000}]

Cf. A074600, A007496.

Sequence in context: A011870 A087950 A060527 this_sequence A079002 A119984 A059879

Adjacent sequences: A152490 A152491 A152492 this_sequence A152494 A152495 A152496

base,nonn

Zak Seidov (zakseidov(AT)yahoo.com), Oct 25 2009