|
Search: id:A087599
|
|
|
| A087599 |
|
Smallest n-digit member of A087597, or 0 if no such number exists. |
|
+0
4
|
|
| 10, 105, 2211, 16836, 105111, 2220778, 14319276, 221098906, 1087061878, 11402689605, 223577504556, 1264725045100
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
Conjecture: No term is zero.
|
|
EXAMPLE
|
a(4)=2211, dd(2211)=010=10.
|
|
PROGRAM
|
(PARI) dd(k)={ local(kshf, res, dig, odig, p) ; kshf=k ; res=0 ; odig=kshf % 10 ; p=0 ; while(kshf>9, kshf=floor(kshf/10) ; dig=kshf % 10 ; res += 10^p*abs(dig-odig) ; odig=dig ; p++ ; ) ; return(res) ; } isA000217(n)={ if( issquare(1+8*n), return(1), return(0) ) ; } A000217(n)={ return(n*(n+1)/2) ; } ndigs(n)={ local(nshft, res) ; res=0 ; nshft=n; while(nshft>0, res++ ; nshft=floor(nshft/10) ; ) ; return(res) ; } isA087597(n)={ if( isA000217(n) && isA000217(dd(n)), return(1), return(0) ) ; } A087599(n)={ local(k, T) ; k=floor(-0.5+sqrt(0.25+2*10^(n-1))) ; T=A000217(k) ; if(ndigs(T)<n, k++ ) ; while(1, T=A000217(k) ; if(ndigs(T)>n, return(0) ) ; if( isA087597(T), return(T) ) ; k++ ; ) ; } { for(n=2, 21, print1(A087599(n), ", ") ; ) ; } - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 19 2006
|
|
CROSSREFS
|
Cf. A087597, A087598, A087600.
Adjacent sequences: A087596 A087597 A087598 this_sequence A087600 A087601 A087602
Sequence in context: A000457 A113348 A068883 this_sequence A068097 A142987 A078192
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Sep 18 2003
|
|
EXTENSIONS
|
Corrected and extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 19 2006
|
|
|
Search completed in 0.002 seconds
|
