%I A060004
%S A060004 1,5,13,21,49,55,91,139,259,181,301,391,481,559,619,829,859,1069,1111,
%T A060004 1081,1489,1609,1741,1951,2029,2971,2341,3379,3769,3331,3589,3961,4525,
%U A060004 4189,5281,4801,4975,6361,7579,5911,6439,7111,6319,9931,11059,8869
%N A060004 a(n) = least odd number which can be represented in the form p + 2*k^2, 
               k>0, in n different ways.
%t A060004 a = Table[ 0, {100} ]; Do[ c = 0; k = 1; While[ n - 2*k^2 > 1, If[ PrimeQ[ 
               n - 2*k^2 ], c++ ]; k++ ]; If[ a[ [ c ] ] == 0, a[ [ c ] ] = n ], 
               { n, 1, 70801, 2 } ]
%Y A060004 Sequence in context: A034170 A166051 A160170 this_sequence A076408 A083800 
               A006353
%Y A060004 Adjacent sequences: A060001 A060002 A060003 this_sequence A060005 A060006 
               A060007
%K A060004 nonn
%O A060004 0,2
%A A060004 Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 14 2001