A271639 Orphans: integers without ancestors, in the sense explained below.
648, 649, 659, 737, 738, 739, 747, 748, 749, 758, 759, 769, 828, 829, 837, 838, 839, 846, 847, 848, 849, 857, 858, 859, 868, 869, 879, 919, 928, 929, 937, 938, 939, 946, 947, 948, 949, 956, 957, 958, 959, 967, 968, 969, 978, 979, 989, 1648, 1649, 1659, 1737, 1738
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A040115.
Programs
-
Maple
filter:= proc(n) local t,L,i; L:= convert(n,base,10); t:= {$1..9}; for i from 1 to nops(L) do t:= select(d -> d >= 0 and d <= 9, map(d -> (d+L[i],d-L[i]), t)); if t = {} then return true fi od; false end proc: select(filter, [$1..2000]); # Robert Israel, May 27 2019
-
PARI
\\ Needs PARI from A327270. select(k->A327270(k)<0, [1..1800]) \\ Andrew Howroyd, Dec 10 2024
Comments